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ALT0IIC0DE3 .MU 

•••Derived from ALTOIICODE2.MU. as last modified by 
•••Tobol, August 5. 1976 12:13 PM -- fix DI0G2 bug 
•••modified by Ingalls, September 6, 1977 

BitBLT fixed (LREG bug) and extended for new memory 
••♦modified by Boggs and Taft September 15, 1977 10:10 PM 

Modified MRT to refresh 16K chips and added XMSTA and XMLDA. 

Fixed two bugs in OEXCH and a bug in the interval timer. 

Moved symbol and constant definitions into AltoConsts23.mu. 

MRT split and moved into two 'get' files, 
•••modified by Boggs and Taft November 21, 1977 5:10 PM 

Fixed a bug in the Ethernet input main loop, 
•••modified by Boggs November 28, 1977 3:53 PM 

Mess with the information returned by VERS 
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;Get the symbol and constant definitions 
#AltoConsts23.mu; 

;LABEL PREDEFINITIONS 

;The reset locations of the tasks: 

117. 20, NOVEM,,.,KSEC.,,EREST,MRT,DWT. CURT, DHT. DVT. PART, KWDX,; 

;Locations which may need to be accessible from the Ram, or Ram 
; locations which are accessed from the Rom (TRAP1): 
137. 20, START, RAMRET.RAMCYCX TRAP1; 

;Macro-op dispatch table: 
I37,20,DOINS.DOIND,EMCYCLE,NOPAR,JSRII.U5,U6.U7 RAMTRAP.TRAP; 

;Parameterless macro-op sub-table: 

137, 40. DIR.EIR.BRI.RCLK.SIO.BLT.BLKS, SIT, JMPR.RDRM.WTRM, DIRS, VERS. OREAD. DWRITE .DEXCH.MUL.DIV, 01061. DIOG 

••2 , BITBLT , XMLDA, XMSTA ; 

;Cycle dispatch table: 
I37.20,L0,L1,L2,L3.L4,L5,L6.L7.L8,R7.R6.R5.R4,R3X,R2X.R1X; 

;some global R-Registers 

$NWW $R4; State of interrupt system 

$R37 $R37; Used by MRT, interval timer and EIA 

SMTEMP $R25; Public temporary R-Register 
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;The Display Controller 

; its R-Registers: 

$CBA $R22 

$AECL $R23 

$SLC SR24 

$HTAB $R26 

$YPOS $R27 

SDWA SR30 

SCURX SR20 

SCURDATA $R21 

; its task specific functions: 

$EVENFIELD SL024010, 000000 .000000; F2 - 10 DHT DVT 

SSETMODE SL024011, 000000,000000; F2 - 11 DHT 

$DDR SL026010, 000000, 124100; F2 • 10 DWT 

I1,2,DVT1,DVT11; 

ll,2,M0REB,N0MORE; 

ll,2,N0RMX,HALFX; 

ll,2,NOOD,NEVEN; 

I1,2,DHT0,DHT1; 

ll,2,NORMODE,HALFM0DE; 

U.2,DWTZ,DWTY; 

I1.2.D0TAB.N0TAB; 

I1.2.XNOMORE.DOMORE; 

;Display Vertical Task 

DVT: MAR*- L*- DASTART+1; 
CBA«- L, L<- 0; 
CURDATA*- L; 
SLC«- L; 

T«- MD; CAUSE A VERTICAL FIELD INTERRUPT 

L«- NWW OR T; 

MAR*- CURLOC; SET UP THE CURSOR 

NWW*- L, T«- 0-1; 

L«- MD XOR T; HARDWARE EXPECTS X COMPLEMENTED 

T«- MD. EVENFIELD; 
CURX*- L, :DVT1; 

DVT1: L*- BIAS-T-1, TASK. :DVT2; BIAS THE Y COORDINATE 
DVT11: L*- BIAS-T. TASK; 

DVT2: YPOS*- L, :DVT; 
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MORE TO DO IN THIS BLOCK 



;Display Horizontal Task. 

;11 cycles if no block change. 17 if new control block, 

OHT: MAR«- CBA-1; 

L«- SLC -1. BUS-0; 
SLC«- L, :OHT0j 

0HT0: T«- 37400; 
SINK«- MO; 

L«- T*- MD AND T, SETMODE; 
HTAB«- L LCY 8, :NORMODE; 

NORMODE:L<- T«- 377 . T; 
AECL«- L. :REST; 

HALFMODE: I*- T«- 377 . T; 

AECL«- L. :REST. T*- 0; 

REST: L*- OWA + T.TASK; 
NDNX: DWA«- L, :OHT; 

DHT1: L<- T«- MD+1, BUS-0; 

CBA»- L, MAR«- T, :MOREB; 



INCREMENT DWA BY OR NWRDS 



NOMORE: BLOCK, :DNX; 
MOREB: T«- 37400; 

L«- T«- MD AND T, SETMODE; 

MAR«- CBA+1, :NORMX. EVENFIELD; 

NORMX: HTAB«- L LCY 8, :N0DD; 
HALFX: HTAB«- L LCY 8, :NEVEN; 

NODD: L«-T«- 377 . T; 

AECL«- L, :XREST; 

NEVEN: L«- 377 AND T; 
AECL«-L, T«-0; 

XREST: L«- MD+T; 

TH4D-1; 
DNX: DWAH., L«-T, TASK; 

SLC«-L, :DHT; 



ODD FIELD, FULL RESOLUTION 
EVEN FIELD OR HALF RESOLUTION 
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;Oisplay Word Task 
DWT: 



T«- DWA; 

T«--3+T+l; 

L*- AECL+T.BUS-O.TASK; 

AECL«-L, :DWTZ; 



OWTY: BLOCK; 

TASK. :DWTF; 

DWTZ: L«-HTAB-1. BUS-O.TASK; 
HTAB«-L, :OOTAB; 

DOTAB: DDR*-0 , :DWTZ; 
NOTAB: MAR«-T*-DWA; 

L«-AECL-T-1; 

ALUCY, L«-2+T; 

DWA«-L, :XN0MORE; 

DOMORE: DDR«-MD. TASK; 

DDR«-MD, : NOTAB; 

XNOMORE:DDR«- MD, BLOCK; 
DDR«- MD, TASK; 



AECL CONTAINS NWRDS AT THIS TIME 



DWTF: 



:DWT; 
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;Aito Ethernet Microcode, Version III, Boggs and Metcalfe 



'i \7M . K ?SSS!EoS5i?io!SJTS»SSD?lS lo 1 . eodpst . eoepst.eorest.eifbio.eodcol.eoecol.eirest.eifbh.eodugh. 

»»e6eUGH,ERBRES; 



;2-way branches using NEXT7 

;EOCDWl, EOCDWX. and EIGO are all related. 

I7,10,.EIFOK..EOCDW1.,EIFBAD.EOCDWX,EIGO; 



Be careful I 



;Miscellaneous address constraints 
!7,10.,EOCDW0,EODATA,EIDFUL.EIOZ4,E0CDRS,EIDATA.EP0ST; 

17.10..EIOOK, , .EIOMOR.EIOPST; 

ll.l.EIFBl; 

Il.l.EIFRST; 

;2-way branches using NEXT9 

ll.2,EOINPR,EOINPN; 

!l,2.EODMOR,EODEND; 

ll,2,EOLD0K,EOL0BO; 

I1.2.EIFCHK.EIFPRM; 

ll,2,EOCDWT,EOCOGO: 

11.2.ECNT0K.ECNTZR; 

ll,2,EIFIGN,EISET; 

I1.2.EIFNBC.EIFBC; 

;R Memory Locations 

SECNTR $R12; Remaining words In buffer 

SEPNTR $R13; points BEFORE next word in buffer 

;Ethernet microcode Status codes 



SESIDON $377; 
SESODON $777; 
SESIFUL $1377: 
SESLOAD $1777; 
SESCZER $2377; 
SESABRT $2777; 
SESNEVR $3377; 



Input Oone 

Output Done 

Input Buffer full - words lost from tall of packet 

Load location overflowed 

Zero word count for input or output command 

Abort - usually caused by reset command 

Never Happen - Very bad if it does 



;Main memory locations in page 1 reserved for Ethernet 

$EPLOC $600; Post location 

$EBLOC $601; Interrupt bit mask 

$EELOC $602; Ending count location 

$ELL0C $603; Load location 

$EICL0C $604; Input buffer Count 

$EIPL0C $605; Input buffer Pointer 

$EOCL0C $606; Output buffer Count 

$EOPL0C $607; Output buffer Pointer 



$EHL0C $610; Host Address 

;Function Definitions 

$EIDFCT $L000000, 014004.000100; 
$EILFCT $L016013, 070013, 000100; 
$EPFCT $L016014. 070014, 000100; 
$EWFCT $L016015. 000000, 000000; 



$EODFCT 

$EOSFCT 

$ERBFCT 

$EEFCT 

$EBFCT 

$ECBFCT 

$EISFCT 



$L026010 
$L0240U 
$L024012 
$L024013 
$L024014 
$L02401S 
$L024016 



000000,124000; 

000000,000000; 

000000,000000; 
,000000,000000; 
,000000.000000; 
,000000,000000; 
,000000,000000; 



BS • 


• 4, 


Input data 


Fl ■ 


• 13. 


Input Look 


Fl ■ 


• 14. 


Post 


Fl ■ 


■ 16, 


Wake-Up 


F2 • 


■ 10. 


Output data 


F2 ■ 


■ 11. 


Start output 


F2 


• 12. 


Rest branch 


F2 


■ 13, 


End of output 


F2 


■ 14, 


Branch 


F2 


■ 16, 


Countdown branch 


F2 


■ 16. 


Start Input 
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- Whenever a label has a pending bran.ch, the list of possible 
destination addresses is shown in brackets in the comment field. 

- Special functions are explained in a comment near their first use. 

- To avoid naming conflicts, all labels and special functions 
have "E" as the first letter. 

Top of Ethernet Task loop 

Ether Rest Branch Function - ERBFCT 

merge ICMO and OCMD Flip Flops into NEXT6 and NEXT7 

ICMD and 0CMO are set from ACO [14:15] by the SIO instruction 

00 neither 

01 OCMD - Start output 

10 ICMD - Start input 

11 Both - Reset interface 

in preparation for a hack at EIREST. zero EPNTR 



EREST: L*- 0, ERBFCT; 

EPNTR*- L,:ENOCMD; 



What's happening ? 
[ENOCMD.EOREST. EIREST, ERBRES] 

Shouldn't happen 
Reset Command 



ENOCMD: L*- ESNEVR, :EPOST; 
ERBRES: L«- ESABRT. :EPOST; 

;Post status and halt. Microcode status in L. 

;Put microstatus,.hardstatus in EPLOC, merge c(EBLOC) into NWW. 

;Note that we write EPLOC and read EBLOC in one operation 

;Ether Post Function - EPFCT. Gate the hardware status 
;(L0W TRUE) to Bus [10:15], reset interface. 



EPOST: MAR*- EELOC; 

EPNTR*- I. TASK; 
MD«- ECNTR; 

MAR*- EPLOC; 
T«- NWW; 

MD«- EPNTR. EPFCT; 
L*- MD OR T.TASK; 
NWW<- L,: EREST; 



Save microcode status In EPNTR 
Save ending count 

double word reference 

BUS AND EPNTR with Status 

NWW OR c( EBLOC) 

Done. Wait for next command 



;This is a subroutine called from both input and output (EOCDGO 
;and EISET). The return address is determined by testing ECBFCT. 
;which will branch if the buffer has any words in it, which can 
;only happen during input. 



check for zero length 
[ECNTOK.ECNTZR] Start-1 

Zero word count. Abort 



ESETUP: NOP; 

L«- MD.BUS-0; 

T*- MD-l.:ECNTOK; 

ECNTZR: L«- ESCZER, : EPOST; 

;Ether Countdown Branch Function - ECBFCT. 
;NEXT7 ■ Interface buffer not empty. 

ECNTOK: ECNTR*- L.L*- T. ECBFCT. TASK; 

EPNTR*- L,:EODATA; [EODATA.EIDATA] 
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;Ethernet Input 

;It turns out that starting the receiver for the first time and 
•restarting it after ignoring a packet do the same things. 

EIREST: :EIFIGN; Hack 

;Address filtering code. 

;When the first word of a packet is available in the interface 
•buffer, a wakeup request is generated. The microcode then 
;decides whether to accept the packet. Decision must be reached 
ibefore the buffer overflows, within about 14*5. 44 usee. 
;if EHLOC is zero, machine is 'promiscuous' - accept all packets 
;if destination byte is zero, it is a 'broadcast' packet, accept. 
;if destination byte equals EHLOC, packet is for us, accept. 

;EIFRST is really a subroutine that can be called from EIREST 
•or from EIGO. output countdown wait. If a packet is Ignored 
;and EPNTR is zero, EIFRST loops back and waits for more 
;packets, else it returns to the countdown code. 

;Ether Branch Function - EBFCT „„..,» 

;NEXT7 • IOL X OCMD % ICMD % OUTGONE X INGONE (also known as POST) 
;NEXT6 » COLLision - Can't happen during input 

EIFRST: MAR*- EHLOC; Get Ethernet address 

T«- 377, EBFCT: What's happening? 
L*- MD AND T,BUS»0,:EIFOK;[EIFOK,EIFBAO] promiscuous? 

EIFOK: MTEMP*- LLCY8. :EIFCHK; [EIFCHK.EIFPRM] Data wakeup 

EIFBAD: ERBFCT.TASK, :EIFB1 ; [EIFB1] POST wakeup; xCMD FF set? 
EIFB1: :EIFB00; [EIFBOO.EIFBOI.EIFBIO.EIFBU] 

EIFB00: :EIFI6N; IOL or INGONE, restart revr 

EIFB01: L*- ESABRT, :EPOST; OCMD, abort 

EIFB10: L«- ESABRT, :EPOST; ICMD, abort 

EIFB11: L«- ESABRT. :EPOST; ICMD and OCMD, abort 

EIFPRM: TASK.:EIFBC; Promiscuous. Accept 

;Ether Look Function - EILFCT. Gate the first word of the 
;data buffer to the bus, but do not increment the read pointer. 

EIFCHK: L<- T*- 177400, EILFCT; Mask off sre addr byte (BUS AND) 
L«- MTEMP-T.SH-0; Broadcast? 
SH-0,TASK,:EIFNBC: [EIFNBC.EIFBC] Our Address? 

EIFNBC: :EIFIGN; [EIFIGN. EISET] 

EIFBC: :EISET; [EISET] Enter input main loop 

;Ether Input Start Function - EISFCT. Start receiver. Interface 
;will generate a data wakeup when the first word of the next 
ipacket arrives, ignoring any packet currently passing. 

EIFIGN: SINK*- EPNTR, BUS-0. EPFCT;Reset; Called from output? 
EISFCT, TASK. :EOCDWX; [EOCDWX.EIGO] Restart revr 

EOCDWX: EWFCT, :E0CDWT; Return to countdown wait loop 

EISET: MAR*- EICLOC, :ESETUP; Double word reference 

; Input Main Loop 

;Ether Input Data Function - EIDFCT. Gate a word of data to 
;the bus from the interface data buffer, increment the read ptr. 

♦••••WARNING***** 
;The delay from decoding EIDFCT to gating data to the bus 1s 
imarglnal. Some logic 1n the interface detects the situation 
-.(which only happens occasionally) and stops SysClk for one cycle. 
:Since memory data must be available during cycle 4, and SysClk 
;may stop for one cycle, this means that the MD*- EIDFCT must 
Jhappen 1n cycle 3. There Is a bug in this logic which occasionally 
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jstops the clock in the instruction following the EIDFCT, so 
:the EIDFCT instruction should not be the last one of the task, 
;or it may screw up someone else (such as RDRAM). 

EIDOK, EIDMOR, and EIDPST must have address bits in the pattern: 

xxxl xxx4 xxx5 

ECBFCT is used to force an unconditional branch on NEXT7 

EIDATA: T<- ECNTR-1. BUS-0; 

MAR«- I*- EPNTR+1. EBFCT; [EIDMOR, EIDPST] What's happening 
EIDMOR: EPNTR«- L. L«- T. ECBFCT; [EIDOK, EIDPST] Guaranteed to branch 
EIDOK: MD<- EIDFCT, TASK; [EIDZ4] Read a word from the interface 
EIDZ4: ECNTR«- L, :EIDATA; 

We get to EIDPST for one of two reasons: 

(1) The buffer is full. In this case, an EBFCT (NEXT[7]) is pending. 
We want to post "full" if this is a normal data wakeup (no branch) 
but just "input done" if hardware input terminated (branch). 

(2) Hardware input terminated while the buffer was not full. 
In this case, an unconditional branch on NEXT[7] is pending, so 
we always terminate with "input done". 

EIDPST: L«- ESIOON, :EIDFUL; [EIDFUL.EPOST] Presumed to be INGONE 
EIDFUL: L«- ESIFUL, :EP0ST; Input buffer overrun 
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;Ethernet output 

;It is possible to get here due to a collision. If a collision 
•happened, the interface was reset (EPFCT) to shut off the 
itransmitter. EOSFCT is issued to guarantee more wakeups while 
•generating the countdown. When this is done, the interface is 
;again reset, without really doing an output. 

EOREST: MAR«- ELLOC; Get load 

L«- R37; Use clock as random # gen 

EPNTR*- LRSH1; Use bits [6:13] 

L«- MD. EOSFCT; L«- current load 

SH<0. ECNTR*- L; Overflowed? 

MTEMP*- LLSH1.:E0LD0K; [EOLDOK.EOLOBO] 

EOLDBO: L«- ESLOAD. :EPOST; Load owerlow 

E0LD0K: L«- MTEMP+1; Write updated load 

MAR*- ELLOC; 
MTEMP*- L.TASK; 
MD*- MTEMP,:E0RST1; New load - (old Ishift 1) + 1 

EORST1: L«- EPNTR; Continue making random # 

EPNTR*- LRSH1; 
T«- 377; 

L«- EPNTR AND T.TASK; 
EPNTR*- L,:EORST2; 

;At this point, EPNTR has 0,, random number, ENCTR has old load. 

E0RST2: MAR«- EICLOC; Has an input buffer been set up? 

T«- ECNTR; 

L«- EPNTR AND T; L«- Random & Load 
SINK<- MD.BUS-0; 
ECNTR*- L.SH-0, EPFCT. :EOINPR;[EOINPR.EOINPN] 

EOINPR: EISFCT,:EOCDWT; [EOCDWT.EOCDG0] Enable in under out 

EOINPN: :EOCDWT; [EOCDWT.EOCDG0] No input. 

;Countdown wait loop. MRT will generate a wakeup every 

;37 usee which will decrement ECNTR. When it 1s zero, start 

;the transmitter. 

;Ether Wake Function - EWFCT. Sets a flip flop which will cause 
;a wakeup to this task the next time MRT wakes up (every 37 usee). 
;Wakeup is cleared when Ether task next runs. EWFCT must be 
;issued in the instruction AFTER a task. 

EOCDWT: L«- 177400, EBFCT; What's happening? 

EPNTR*- L.ECBFCT,:EOCDW0;[EOCDW0.EOCDRS] Packet coming 1n? 
E0CDW0: L«- ECNTR-1.BUS-0.TASK, :EOCDWl; [E0CDW1.EIG0] 
E0CDW1: ECNTR«- L, EWFCT. : EOCDWT; [EOCDWT, EOCDG0] 

EOCDRS: L«- ESABRT, :EPOST; [EPOST] POST event 

EI60: :EIFRST; [EIFRST] Input under output 
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;Output main loop setup 

E0C0G0: MAR<- EOCLOC; Double word reference 

EPFCT; Reset interface 

EOSFCT, :ESETUP; Start Transmitter 

;Ether Output Start Function - EOSFCT. The interface will generate 
;a burst of data requests until the interface buffer is full or the 
;memory buffer is empty, wait for silence on the Ether, and begin 
;transmitting. Thereafter it will request a word every 5.44 us. 

;Ether Output Data Function - EODFCT. Copy the bus into the 

; interface data buffer, increment the write pointer, clears wakeup 

;request if the buffer is now nearly full (one slot available). 

;Output main loop 

EODATA: L«- MAR*- EPNTR+l.EBFCT; What's happening? 

T«- ECNTR-1,BUS«0,:EODOK; [EODOK.EODPST.EOOCOL.EODUGH] 
EODOK: EPNTR*- L,L«- T.:EODMOR; [EODMOR.EODEND] 
EODMOR: ECNTR*- L.TASK; 

EODFCT*- MD,:EODATA; Output word to transmitter 

EODPST: L«- ESABRT, :EPOST; [EPOST] POST event 

EODCOL: EPFCT, :EOREST; [EOREST] Collision 

EODUGH: L«- ESABRT, : EPOST; [EPOST] POST + Collision 

;Ether EOT Function - EEFCT. Stop generating output data wakeups, 
;the interface has all of the packet. When the data buffer runs 
;dry, the interface will append the CRC and then generate an 
; OUTGONE post wakeup. 

EODEND: EEFCT; Disable data wakeups 

TASK: Wait for EEFCT to take 

:EOEOT; Wait for Outgone 

;Output completion. We are waiting for the interface buffer to 
;empty, and the interface to generate an OUTGONE Post wakeup. 

EOEOT: EBFCT; What's happening? 

:EOEOK; [EOEOK.EOEPST.EOECOL.EOEUGH] 

EOEOK: L«- ESNEVR, : EPOST; Runaway Transmitter. Never Never, 

EOEPST: L«- ESODON, : EPOST; POST event. Output done 

EOECOL: EPFCT, :EOREST; Collision 

EOEUGH: l«- ESABRT, : EPOST; POST + Collision 
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;Memory Refresh Task, 
-.Mouse Handler, 
;EIA Handler, 
jlnterval Timer, 
;Ca1ender Clock, and 
;part of the cursor. 

!17,Z0.TX0.TX6,TX3,TX2,TX8.TX5,TX1,TX7,TX4 

il,2,DOTIMER,MOTIMER; 

ll,2,HOTIMERINT,TIMERINT; 

ll,2,OOCUR,NOCUR; 

ll.2,SHOWC,WAITC; 

I1.2.SPCHK.NOSPCHK; 

11.2.N0CLK.CL0CK; 

ll.l.MRTLAST; 

I1.2.CNOTLAST.CLAST; 



SCLOCKTEMP 
SREFIIMSK 



$R11; 
$7777; 



•••ATTENTION*** 
There are two versions of the Memory refresh code: 

AltoIIMRT4K.mu for refreshing 4K chips 

AltoIIMRT16K.mu for refreshing 16K chips 
You must name one or the other 'AltoIIMRT.mu' . 
I suggest the following convention for naming the resulting .MB rue, 

AltoIICode3.MB for the 4K version 

AltoIICode3XM.MB for the 16K version 



#AUoIIMRT.mu; 
CLOCK 



OOCUR: 



MAR*- CLOCKLOC; 

NOP; 

L«- MO+1; 

MAR*- CLOCKLOC; 

MTEMP*- L, TASK; 

MD<- MTEMP, :NOCLK; 

L*- T*- YPOS; 
SH<0, L*- 20-T-l; 
SH<0. L*- 2+T, :SHOwC; 



R37 OVERFLOWED. 
INCREMENT CLOCK IM MEMORY 



CHECK FOR VISIBLE CURSOR ON THIS SCAN 

♦••xl3 change: the constant 20 was 17 
[SHOWC.WAITC] 



WAITC: YPOS*- L. L«- 0. TASK. :MRTLAST; SQUASHES PENDING BRANCH 
SHOWC: MAR*- CLOCKLOC+T+1. :CNOTLAST; 

CNOTLAST: T*- CURX. :CURF; 

CLAST: T*- 0; 

CURF: YPOS*- L, L«- T; 

CURX*- L; 

L*- MO, TASK; 

CURDATA*- L, :MRT; 
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AltoIIMRT16K.mu 

last modified December 1, 1977 1:13 AM 

This is the part of the Memory Refresh Task which 
is specific to Alto lis with Extended memory. 



$EngNumber 



$30000; 



ALTO II WITH EXTENDED MEMORY 



This version assumes MRTACT is cleared by BLOCK, not MAR«- R37 

R37 [4-13] are the low bits of the TOD clock 

R37 [8-14] are the refresh address bits 

Each time MRT runs, four refresh addresses are generated, though 

R37 is incremented only once. Sprinkled throughout the execution 

of this code are the following operations having to do with refresh: 

MAR*- R37 

R37«- R37 +4 NOTE THAT R37 [14] DOES NOT CHANGE 

MAR«- R37 XOR 2 TOGGLES BIT 14 

MAR<- R37 XOR 200 TOGGLES BIT 8 

MAR«- R37 XOR 202 TOGGLES BITS 8 AND 14 



MRT: 



MRTA 
TX0: 



NOTIMER 

NOTIMER 



MAR*- R37: 
SINK«- MOUSE, BUS: 
L«- T- -2. :TX0; 
L«- R37 AND NOT T, 
T«- 3+T+l. SH-0; 
L«- REFIIMSK AND T 
R37«- L; 
INT: T«- 2; 
MAR«- R37 XOR T,T«- 
L«- REFZERO AND T; 
SH-0. TASK; 
:NOCLK; 
NOCLK: T «- 200; 

MAR«- R37 XOR T; 
L«- CURX, BLOCK; 
J*- 2 OR T, SH-0; 
MAR* R37 XOR T, : 
CURDATA«- L. TASK; 
:CURDATA«- L, :MRT; 



••FIRST REFRESH CYCLE" 
MOUSE DATA IS ANDED WITH 17B 
DISPATCH ON MOUSE CHANGE 
T«- R37; INCREMENT CLOCK 

IE. T*- T +4. IS INTV TIMER ON? 
, :DOTIMER; [DOTIMER, NOTIMER] ZERO HIGH 4 BITS 
STORE UPDATED CLOCK 

NO STATE AT THIS POINT IN PUBLIC REGS 
R37; ••SECOND REFRESH CYCLE** 

ONLY THE CLOKCK BITS, PLEASE 
TEST FOR CLOCK OVERFLOW 
[NOCLK, CLOCK] 

••THIRD FEFRESH CYCLE** 
CLEARS WAKEUP REQUEST FF 
NEED TO CHECK CURSOR? 
DOCUR; "FOURTH REFRESH CYCLE** 



NOCUR : 
MRTLAST: 



DOTIMER:R37«- L; 

MAR<- EIALOC; 

L«- 2 AND T; 

SH-0. L«- T«- REFZERO. T; 

CURDATA«-L, :SPCHK; 



END OF MAIN LOOP 

STORE UPDATED CLOCK 
INTERVAL TIMER/EIA INTERFACE 

•••V3 CHANGE (USED TO BE BIAS) 

CURDATA- CURRENT TIME WITHOUT CONTROL BITS 



SPCHK: SINK- MD, BUS-0. TASK; CHECK FOR EI A LINE SPACING 
SPIA: :NOTIMERINT. CLOCKTEMP«- L; 



NOSPCHK:L«-MD; 

MAR«-TRAPDISP-1; 

MTEMPt-L; 

L*- MD-T; 

SH-0, TASK, L«-MTEMP. 

TIMERINT:MAR*- ITQUAN; 
L«- CURDATA; 
R37«- L; 
T*-NWW; 

MD-CLOCKTEMP; 
L«-MD OR T. TASK; 
NWW«-L.:NOTIMERINT; 



CHECK FOR TIME ■ NOW 

CONTAINS TIME AT WHICH INTERRUPT SHOULD HAPPEN 
IF INTERRUPT IS CAUSED, 
LINE STATE WILL BE STORED 
:SPIA; 

STORE THE THING IN CLOCKTEMP AT ITQUAN 



AND CAUSE AN INTERRUPT ON THE CHANNELS 
SPECIFIED BY ITQUAN+1 



;The rest of MRT, starting at the label CLOCK 1s unchanged 
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AHoIIMRT4K.mu 

last modified December 1, 1977 1:14 AM 

This is the part of the Memory Refresh Task which 
is specific to Alto lis WITHOUT Extended memory. 



SEngNumber 



$20000; 



ALTO 2 WITHOUT EXTENDED MEMORY 



MRT: SINK*- MOUSE. BUS: 
MRTA: L*- T«- -2, :TX0; 
TX0: L«- T«- R37 AND NOT T; 

T«- 3+T+l, SH-0; 

L«- REFIIMSK ANDT, :DOTIMER; 
N0TIMER:R37«- L: 
TIMERTN:L«- REFZERO AND T; 

SH-0; 

:NOCLK; 
NOCLK: MAR<- R37; 

L«- CURXj 

T«- 2, SH-0: 

MAR«- R37 XORT. :DOCUR; 
NOCUR: CURDATA*- L, TASK; 
MRTLAST:CURDATA«- L, :MRT; 



MOUSE DATA IS ANDED WITH 17B 
DISPATCH ON MOUSE CHANGE 
UPDATE REFRESH ADDRESS 



STORE UPDATED REFRESH ADDRESS 
TEST FOR CLOCK TICK 
FIRST FEFRESH CYCLE 

SECOND REFRESH CYCLE 



D0TIMER:R37«- L; 

MAR«-EIALOC; 

L«-2 AND T; 

SH-0, L«-T«-REFZERO.T; 

CURDATA«-L. :SPCHK; 



SAVE REFRESH ADDRESS 
INTERVAL TIMER/EIA INTERFACE 

••♦V3 CHANGE (USED TO BE BIAS) 
CURDATAKURRENT TIME WITHOUT CONTROL BITS 



SPCHK: SINK«-MD, BUS-O. TASK: CHECK FOR EIA LINE SPACING 
SPIA: :NOTIMERINT. CLOCKTEMPH.; 

NOSPCHK:L«-MD; CHECK FOR TIME-NOW 

MAR*-TRAPDISP-1; CONTAINS TIME AT WHICH INTERRUPT SHOULD HAPPEN 
MTEMPH.; IF INTERRUPT IS CAUSED, 

L«- MD-T; LINE STATE WILL BE STORED 

SH-O, TASK, L«-MTEMP. :SPIA; 



TIMERlNT:MAR»- ITQUAN; 
L«- CURDATA; 
R37«- L; 
T+-NWW' 

MD*-CLOCKTEMP: 
L«-MO OR T, TASK; 
NWW«-L; 



STORE THE THING IN CLOCKTEMP AT ITQUAN 

AND CAUSE AN INTERRUPT ON THE CHANNELS 
SPECIFIED BY ITQUAN+1 



NOTIMERINT: T«-R37, :TIMERTN; 

;The rest of MRT, starting at the label CLOCK is unchanged 
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; AFTER THIS DISPATCH. T WILL CONTAIN XCHANGE, L WILL CONTAIN YCHAN6E-1 



TX1 


L«- T«- ONE +T, :M00; 


Y-0. X-l 


TX2 


L«- T«- ALLONES. :MOO; 


Y-0. X— 1 


TX3 


L«- 1- 0, :M00; 


Y-l. X-0 


TX4 


L«- J*- ONE AND T, :M00; 


Y-l, X-l 


TX5 


L«- T- ALLONES XOR T, :M0O; 


Y-l. X— 1 


TX6 


T«- 0. :M00; 


Y«-l. X-0 


TX7 


T*- ONE, :M00; 


Y— 1, X-l 


TX8 


T«- ALLONES, :M00; 


Y— 1, X— 1 


MOO 


: MAR«- MOUSELOC; 


START THE FETCH OF THE COORDINATES 




MTEMP*- L: 


YCHAN6E -1 




L*- MD+ T; 


X+ XCHANGE 




T«- MD; 


Y 




T«- MTEMP+ T+l; 


Y+ (YCHANGE-1) + 1 




MTEMP«- L. L«- T; 






MAR*- MOUSELOC; 


NOW RESTORE THE UPDATED COORDINATE 




CLOCKTEMP<- L; 






MD*- MTEMP, TASK; 






MD*- CLOCKTEMP. :MRTA; 
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; CURSOR TASK 

•Cursor task specific functions 

$XPREG $1026010,000000,124000; F2 

$CSR $L026011, 000000, 124000; F2 

CURT: XPREG«- CURX, TASK; 

CSR«- CURDATA, :CURT; 



10 
11 



•PREDEF1NITION FOR PARITY TASK. 

•THE CODE IS AT THE END OF THE FILE 

I17.20,PRO,,PR2,PR3.PR4.PR5,PR6,PR7,PR8,,,,,,,; 
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;NOVA EMULATOR 

$SAO $R5; 

$PC $R6; USED BY MEMORY IMIT 

!7,10,Q0,Q1,Q2.Q3.Q4.Q5,Q6.Q7; 

I1.2.FINSTO.INCPC: 

ll,2,EReRead,FINJMP; *»*X21 addition. 

11.2,EReadDone,EContRead; ••♦X21 addition. 

II. 2, EtherBoot, DiskBoot; ***X21 addition. 

NOVEM: IR-L-MAR-0, :INXB,SAD- L; LOAD SAD TO ZERO THE BUS. STORE PC AT 

QO: L- ONE. :INXA; EXECUTED TWICE 

Ql: L- TOTUWC. :1NXA; 

Q2: L-402, :INXA; FIRST READ HEADER INTO 402. THEN 

Q3: L- 402, :INXA; STORE LABEL AT 402 

Q4: L- ONE. :INXA; STORE DATA PAGE STARTING AT 1 

Q5: L-377+1, :INXE; Store Ethernet Input Buffer Length •••X21. 

Q6: L-ONE, :INXE; Store Ethernet Input Buffer Pointer •••X21. 

Q7: MAR- DASTART; CLEAR THE DISPLAY POINTER 

L- 0; 

R37- L; 

MD*- 0; 

MAR*- 177034; FETCH KEYBOARD 

L- 100000; 

NWW- L, T«- 0-1; 

L- MD XOR T. BUSODD; •** X21 change. 

MAR«- BDAD. :EtherBoot; [EtherBoot. OiskBoot] ••• X21 change. 

; BOOT DISK ADDRESS GOES IN LOCATION 12 
DiskBoot: SAD*- L. L<- 0+1; 

MD- SAD; 

MAR- KBLKADR, :FINST0; 

; Ethernet boot section added 1n X21. 

SNegBreathMl $177175; 

SEthNovaGo $3; First data location of incoming packet 

EtherBoot: L-EthNovaGo, :EReRead; [EReRead, FINJMP] 

EReRead:MAR<- EHLOC; Set the host address to 377 for breath packets 
TASK; 
MD- 377; 

MAR*- EPLOC; Zero the status word and start 'er up 
SINK*- 2. STARTF; 
MD - 0; 

EContRead: MAR*- EPLOC; See if status 1s still 
T«- 377; Status for correct read 
L*- MD XOR T, TASK. BUS-0; 
SAD*- L, :EReadDone; [EReadDone, EContRead] 

EReadDone: MAR*- 2; Check the packet type 
T*- NegBreathMl; -(Breath-of-1 1fe)-l 
T*-MD+T+1; 
L*-SAO OR T; 
SH-0, :EtherBoot; 

: SUBROUTINE USED BY INITIALIZATION TO SET UP BLOCKS OF MEMORY 
SEIOffset $576; 

INXA: T*-0NE, :INXCom; *»*X21 change. 
INXE: T*-EIOffset. :INXCom; ••*X21 addition. 

INXCom: MAR*-T«-IR«- SAD+T; *•* X21 addition. 

PC*- L, L*- O+T+l; •*• X21 change. 
INXB: MD*- PC; 

SINK- DISP. BUS, TASK; 

SAD- L, :Q0; 
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; REGISTERS USED BY NOVA EMULATOR 



$AC0 
$AC1 
$AC2 
$AC3 
SXREG 



$R3; 
SRZ; 
$R1: 
$R0; 
$R7; 



AC'S ARE BACKWARDS BECAUSE THE HAROWARE SUPPLIES THE 
COMPLEMENT ADDRESS WHEN ADDRESSING FROM IR 



;PREDEFINITIONS FOR NOVA 

m^O.GETAD.Gl^.GS^.GS.GB^.GlO.Gll.G^.GlS.GU.GlS.Gie.Gl?: 

1 17 . 20 , XCTAB , XJSR . XISZ , XDSZ , XLDA , XSTA , CONVERT ,.,,....,; 

13,4,SHIFT,SH1,SH2.SH3; 

ll.2,MAYBE.N0INT; 

ll,2,DOINT,DIS0; 

ll,2,SOMEACTIVE,NOACTIVE; 

11,2,IEXIT,NIEXIT; 

117.1.0D0CX; 

I1,2,EIR0,EIR1; 

!7,l,INTCODE; 

ll,2,INTSOFF,INTSON; *»*X21 addition for DIRS 

I7,10,EMCYCRET,RAMCYCRET,CYX2,CYX3.CYX4,CONVCYCRET,,; 

I7.2.MOREBLT.FINBLT; 

II, 2. DOIT, DISABLED; 

; ALL INSTRUCTIONS RETURN TO START WHEN DONE 

START: T«- MAR*-PC+SKIP; 

START1: L*- NWW, BUS-0; BUS* MEANS DISABLED OR SOMETHING TO DO 

:MAYBE, SH<0, L«- O+T+l; SH<0 MEANS DISABLED 
MAYBE: PC*- L. L*- T. :DOINT; 
NOINT: PC*- L, :DIS0; 

DOINT: MAR*- WWLOC. :INTCODE; TRY TO CAUSE AN INTERRUPT 

IDISPATCH ON FUNCTION FIELD IF ARITHMETIC INSTRUCTION, 
iOTHERWISE ON INDIRECT BIT AND INDEX FIELD 



DISO: 



L*- J- IR*- MD; 



SKIP CLEARED HERE 



IDISPATCH ON SHIFT FIELD IF ARITHMETIC INSTRUCTION, 
IOTHERWISE ON THE INDIRECT BIT OR IR[3-7] 

DIS1: T*- ACSOURCE, :GETAD; 



iGETAD 


MUST 


GETAD: 


T*- 


Gl: 


T*- 


G2: 


T«- 


G3: 


T*- 


G4: 


T«- 


G5: 


T*- 


G6: 


T«- 


G7: 


T*- 


G10: 


L*- 


Gil: 


L«- 


G12: 


L*- 


G13: 


L«- 


G14: 


L«- 


G16: 


L*- 


G16: 


L*- 


G17: 


L*- 



BRI: 

BRIO: 



BE MOD 20 
, :DOINS; 
PC -1. :DOINS; 
AC2, :DOINS; 
AC3. :DOINS; 
0, iDOINS; 
PC -1. :DOINS: 
AC2, :DOINS; 
AC3, :DOINS; 
O-T-l, TASK. :SHIFT; 
0-T, TASK. :SHIFTi 
0+T. TASK, : SHI FT ; 
O+T+l. TASK. :SHIFT; 
ACDEST-T-1. TASK. :SHIFT; 
ACDEST-T. TASK, :SHIFT; 
ACDEST+T, TASK. : SHI FT; 
ACDEST AND T. TASK. : SHIFT; 



PAGE 

RELATIVE 

AC2 RELATIVE 

AC3 RELATIVE 

PAGE INDIRECT 

RELATIVE INDIRECT 

AC2 RELATIVE INOIRECT 

AC3 RELATIVE INDIRECT 

COMPLEMENT 

NEGATE 

MOVE 

INCREMENT 

ADD COMPLEMENT 

SUBTRACT 

ADD 



SHIFT: DNS*- L LCY 8. 

SHI: DNS*- L RSH 1, 

SH2: DNS*- L LSH 1, 

SH3: DNS*- L. : START 



START; 
START; 
START; 



SWAP BYTES 
RIGHT 1 
LEFT 1 
NO SHIFT 



COINS: L*- DISP + T, TASK. :SAVAD. IDISP; 
OOIND: L*- MAR*- DISP+T; 

XREG*- L; 

L*- MD. TASK. IDISP, iSAVAD; 



DIRECT INSTRUCTIONS 
INDIRECT INSTRUCTIONS 



L*- MAR*- PCLOC 
T*- 77777; 



; INTERRUPT RETURN BRANCH 
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L«- NWW AND T. SH < 0; ,„„„„ 

NWW<- L -EIR0; BOTH EIR AND BRI MUST CHECK FOR INTERRUPT 
REQUESTS WHICH MAY HAVE COME IN WHILE 
J INTERRUPTS WERE OFF 

EIRO: L*- MO, :DOINT; 
EIR1: L«- PC, :DOINT; 

;*»*X21 addition 

; DIRS - 61013 - Disable Interrupts and Skip if they were On 

DIRS: T«-100000; 

L«-NWW AND T: 

L«-PC+1, SH«0; 

; DIR - 61000 - Disable Interrupts 
DIR: T«- 100000. :INTSOFF; 
INTSOFF: L«- NWW OR T, TASK, :INTZ; 

INTSON: PC«-L. : INTSOFF; 

;EIR - 61001 - Enable Interrupts 
EIR: L<- 100000, -.BRIO; 

;SIT - 61007 - Start Interval Timer 
SIT: T«- ACO; 

L<- R37 OR T. TASK; 

R37*- L, :START; 

FINJSR: L«- PC; 

AC3«- L. L«- T. TASK; 
FINJMP: PC*- L. : START; 
SAVAD: SAD*- I, :XCTAB; 

•JSRII - 64400 - JSR double Indirect. PC relative. Must have X-l 1n opcode 
;JSRIS - 65000 - JSR double indirect, AC2 relative. Must have X-2 1n opcode 
JSRII: MAR«- DISP+T; FIRST LEVEL 

IR«- JSRCX; <JSR 0> 

T«- MD, :DOIND; THE IR«- INSTRUCTION WILL NOT BRANCH 
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;TRAP ON UNIMPLEMENTEO OPCODES. SAVES PC AT 

;TRAPPC, AND DOES A JMPG TRAPVEC I OPCODE. 

TRAP: XREG«- L LCY 8; THE INSTRUCTION 

TRAP1: MAR«- TRAPPC; •••X13 CHANGE: TAG 'TRAPl' ADDED 

IR«- T«- 37; 

MD«- PC; 

T- XREG.T; 

T«- TRAPCON+T+1, :DOIND; T NOW CONTAINS 471+OPCODE 
; THIS WILL DO JMP8 530+OPCODE 

;*»»X21 CHANGE: ADDED TAG RAMTRAP 
RAMTRAP: SWMODE. :TRAP; 

; Parameterless operations come here for dispatch. 

I1.2.NPNOTRAP.NPTRAP; 

NOPAR: XREGH. LCY 8; ***X21 change. Checks < 27. 

T«-27; ***IIX3. Greatest defined op 1s 26. 

L«-DISP-T; 

ALUCY; 

SINK«-DISP, SINK«-X37, BUS. TASK. :NPNOTRAP; 

NPNOTRAP: :DIR; 

NPTRAP: : TRAPl; 



U5 
U6 
U7 



*X21 addition for debugging w/ expanded DISP Prom 
RAMTRAP; 
RAMTRAP; 
RAMTRAP; 
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MAIN INSTRUCTION TABLE. GET HERE: 

(1) AFTER AN INDIRECTION 

(2) ON DIRECT INSTRUCTIONS 

XCTAB: L*- SAD, TASK. :FINJMP; JMP 



XJSR 


T*- SAD. :FINJSR; 


JSR 


XISZ 


MAR*- SAD. :ISZ1; 


ISZ 


XDSZ 


MAR*- SAD. :DSZ1; 


DSZ 


XLDA 


MAR*- SAD, :FINLOAD; 


LDA 0-3 


XSTA 


MAR*- SAD; 


/•NORMAL 


XSTA 


t: L*- ACDEST. :FINSTO; 


/♦NORMAL 



BOUNDS-CHECKING VERSION OF STORE 

SUBST ";»»<CR>" TO "<CR>;*»" TO ENABLE THIS CODE: 

• I1.2.XSTA1.XSTA2; 

* I1.2.DOSTA.TRAPSTA; 

♦XSTA: MAR*- 10; LOCS 10,11 CONTAINS HI.LO BOUNDS 

♦ T*- SAD 

♦ L*- MD-T; HIGHBOUND-ADOR 

• T*- MD, ALUCY; 

♦ L*- SAD-T, :XSTA1; ADDR-LOWBOUND 
♦XSTA1: TASK, :XSTA3; 

♦XSTA2: ALUCY, TASK; 

♦XSTA3: L«- 177. :DOSTA; 

♦TRAPSTA: XREG*- L, :TRAP1; CAUSE A SWAT 

•DOSTA: MAR*- SAD; DO THE STORE NORMALLY 

• L«- ACDEST. :FINSTO; 



DSZ1: T«- ALLONES. :FINISZ; 
ISZ1: T*- ONE, :FINISZ; 



FINSTO: SAD*- L.TASK; 
FINST1: MO*-SAD, :START; 

FINLOAD: NOP; 
LOADX: L«- MD, TASK; 
LOADD: ACDEST*- L. : START; 

FINISZ: L*- MD+T; 

MAR*- SAD, SH-0; 
SAD*- L. : FINSTO; 

INCPC: MD*- SAO; 

L*- PC+1, TASK; 
PC*- L, :START; 
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•DIVIDE. THIS DIVIDE IS IDENTICAL TO THE NOVA DIVIDE EXCEPT THAT 

: IF THE DIVIDE CANNOT BE DONE. THE INSTRUCTION FAILS TO SKIP. OTHERWISE 

!lT DOES. CARRY IS UNDISTURBED. 

I1.2.DODIV.NODIV; 

I1.2.DIVL.ENDOIV; 

ll,2.NOOVF,OVF; 

I1.2.DX0.DX1; 

ll,2,NOSUB,DOSUB; 



DIV: 
DIVX: 



NODIV: 
DODIV: 

DIVL: 
DIV1: 



OVF: 
NOOVF : 

NOV1: 



DX1: 



T«- AC2: 

L<- ACO - T; DO THE DIVIDE ONLY IF AC2>AC0 

ALUCY. TASK. SAD«- L, L«- 0+1: 

:D0DIV. SAD*- L LSH 1; SAD«- 2. COUNT THE LOOP BY SHIFTING 



:FINBLT; 

L«- ACO. :DIV1; 



•**X21 change. 



L«- ACO: 

SH<0. T«- AC1; WILL THE LEFT SHIFT OF THE DIVIDEND OVERFLOW? 

: NOOVF, ACO- L MLSH 1, L«- T«- 0+T; L<- AC1. T«- 



AC1«- L LSH 1. L«- 0+INCT, :N0V1; 
AC1+- L LSH 1 , L«- T; 



L«- 1. SHIFT OVERFLOWED 
L«- 0. SHIFT OK 



T«- AC2, SH-0; 
L«- ACO-T, :DX0; 

ALUCY: 





:NOSUB, 


T<- AC1; 


DXO: 


: DOSUB, 


T«- AC1; 


DOSUB: 


AC0+- L. 
AC1«- L; 


L«- 0+INCT; 



DO THE TEST ONLY IF THE SHIFT DIDN'T OVERFLOW. IF 
IT DID. L IS STILL CORRECT. BUT THE TEST WOULD 60 
THE WRONG WAY. 



DO THE SUBTRACT 

AND PUT A 1 IN THE QUOTIENT 



L+ SAD. BUS-O. TASK; 
SAD«- L LSH 1, :DIVL; 



NOSUB: 

ENDDIV: L«- PC+1, TASK, 



:DOIT; ••*X21 change. Skip if divide was done. 
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•MULTIPLY. THIS IS AN EXACT EMULATION OF NOVA HARDWARE MULTIPLY. 
•AC2 IS THE MULTIPLIER. AC1 IS THE MULTIPLICAND. 
;THE PRODUCT IS IN ACO (HIGH PART). AND AC1 (LOW PART). 
;PRECISELY: AC0.AC1 " AC1*AC2 + ACO 

I1.2.D0MUL.N0MUL; 

I1.2.MPYL.MPYA; 

11.2.N0ADDIER.ADDIER; 

I1.2.N0SPILL.SPILL; 

I1.2.N0ADDX.ADDX; 

I1.2.N0SPILLX.SPILLX; 

MUL: L«- AC2-1. BUS-O; „ . 

MPYX: XREGH..L- 0. :DOMUL; GET HERE WITH AC2-1 IN L. DON'T MUL IF AC2-0 
DOMUL: TASK. L«- -10+1; 

SAD«- L; COUNT THE LOOP IN SAD 

MPYL: L«- AC1. BUSODD; 

T«- ACO. :NOADDIER; 

NOADDIER: AC1«- L MRSH 1. L«- T, T«- 0. :NOSPILL; 
ADDIER: L*- T* XREG+INCT; 

L«- AC1. ALUCY. : NOADDIER; 

SPILL: T«- ONE; 
NOSPILL: ACO" L MRSH 1; 

L«- AC1, BUSODD; 

T«- ACO. :NOADOX; 

NOADDX: AC1«- L MRSH 1. L«- T. T«- 0. :NOSPILLX; 
ADDX: L«- T«- XREG+ INCT; 

L<- AC 1. ALUCY. : NOADDX; 

SPILLX: T«- ONE; 
NOSPILLX: ACO*- L MRSH 1; 

L«- SAD+1. BUS-O. TASK; 

SAD" L. :MPYL; 

NOMUL: T«- ACO; 

ACO" L. L<- T, TASK; CLEAR ACO 

AC1«- L; AND REPLACE AC1 WITH ACO 

MPYA: :FINBLT; •••X21 change. 
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CYCLE ACO LEFT BY DISP MOO 20B, UNLESS. DISP-O, IN WHICH 
CASE CYCLE BY AC1 MOD 20B 
LEAVES AC1-CYCLE COUNT-1 MOD 20B 

SCYRET $R5; Shares space with SAD. 
SCYCOUT $R7; Shares space with XREG. 

I1.2.EMCYCX.ACCYCLE; 

ll.l.Yl; 

I1.1.Y2: 

I1.1.Y3: 

u.i.zi: 
H.1.Z2: 
U.1.Z3: 

EMCYCLE: L* DISP. SINK*- X17, BUS-O; CONSTANT WITH BS-7 
CYCP: T* ACO. :EMCYCX; 

ACCYCLE: T* AC1; 

L* 17 AND T, :CYCP; 

EMCYCX: CYCOUT*L, L*0, :RETCYCX; 

RAMCYCX: CYCOUT*L. L*0+1; 

RETCYCX: CYRET*L, L*0+T; 
SINK*CYCOUT. BUS; 
TASK. :L0; 

: TABLE FOR CYCLE 

R4: CYCOUT* L MRSH 1; 

Y3: L«- T* CYCOUT. TASK; 

R3X: CYCOUT*- L MRSH 1; 

Y2: L«- T* CYCOUT, TASK; 

R2X: CYCOUT* L MRSH 1; 

Yl: L* T* CYCOUT. TASK; 

R1X: CYCOUT* L MRSH 1, :ENDCYCLE; 



L4 
Z3 
L3 
Z2 
L2 
Zl 
LI 
LO 

L8 
L7 
L6 
L5 

R7 
R6 
R5 



CYCOUT* L MLSH 1; 
L* T«- CYCOUT. TASK; 
CYCOUT* L MLSH 1; 
L* T* CYCOUT. TASK; 
CYCOUT* L MLSH 1; 
L* T* CYCOUT. TASK; 
CYCOUT* L MLSH 1, :ENDCYCLE; 
CYCOUT* L. :ENDCYCLE; 

CYCOUT* L LCY 8. :ENDCYCLE; 

CYCOUT* L LCY 8. :Y1; 

CYCOUT* L LCY 8, :Y2; 

CYCOUT* L LCY 8, :Y3; 

CYCOUT* L LCY 8, :Z1; 
CYCOUT* L LCY 8. :Z2; 
CYCOUT* L LCY 8. :Z3; 



ENDCYCLE: SINK* CYRET. BUS. TASK; 
:EMCYCRET; 

EMCYCRET: L*CYCOUT. TASK. :LOADD; 

RAMCYCRET: T*PC. BUS. SWMODE. :TORAM; 
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Scan convert instruction for characters. Takes DWAX (Destination 
word address)-NWRDS in ACO, and a pointer to a .AL-format font 
in AC3. AC2+displacement contains a pointer to a two-word block 
containing NWRDS and DBA (Destination Bit Address). 



$XH 


SR10 


SDWAX 


SR35 


$MASK 


SR36 



1 1,2, HDLOOP, HDEXIT; 
1 1,2, MERGE, STORE; 
ll,2,NFIN,FIN; 
I17.2.DOBOTH.M0VEL00P; 

CONVERT: MAR«-XREG+1; 

T«-17; 

L«-MD AND T; 

T«-MAR*-AC3 ; 
AC1«-L; 

L«-MD+T, TASK; 
AC3«-L; 



Got here via indirect mechanism which 

left first arg in SAD, its address in XREG. 



AC1«-DBA&#17 

AC3«-Character descriptor block address(Char) 



ODDCX: 



MAR«-AC3+1 ; 
T«-177400; 
IR«-L«-MD AND T; 
XH«-L LCY 8, : ODDCX; 
L«-AC0. :H0ENTER; 



HDLOOP: T«-SAD; 

L»-DWAX+T; 

HDENTER: DWAX«-L; 

L«-XH-1. BUS-0. TASK; 
XH«-L. : HDLOOP; 

HDEXIT: T«-MASKTAB; 

MAR«-T«-AC1+T; 

L«-DISP; 

XH«-L; 

L«-MD; 

MASK«-L, L«-0+T+l, TASK; 

AC1H.: 

L«-5; 

IR«-SAD. TASK; 

CYRET«-L, :MOVELOOP; 



IR«-XH 

XH register temporarily contains HD 



(really NWRDS) 
DWAX «- AC0+HD*NWRDS 

Fetch the mask. 

XH register now contains XH 

*"X21. AC1 *■ (DBA&#17)+1 

•**X21. Calling conventions changed. 

CYRET«-CALL6 



MOVELOOP: L«-T«-XH-1, BUS-0; 

MAR«-AC3-T-1, :NFIN; 
NFIN: XH«-L; 

T«-DISP; 

LHJWAX+T; 

T*-MD; 

SINK«-AC1. BUS; 

DWAXH., L«-T, TASK, :L0; Call Cycle subroutine 



Fetch next source word 

(really NWRDS) 

Update destination address 



CONVCYCRET: MAR«-DWAX; 
T«-MASK, BUS-0; 
T«-CYCOUT.T, : MERGE; 



MERGE: L«-XREG AND NOT T; 
T«-MD OR T; 
XREG«-L. L«-T; 
MTEMPH.; 
MAR«-DWAX ; 

SINK«-XREG, BUS-0, TASK; 
MD*-MTEMP. :00B0TH; 



OOBOTH: MARH)WAX+1; 
T«-XREG; 



Data for first word. If MASK-0 

; then store the word rather than 

; merging, and do not disturb the 

; second word. 

Data for second word. 

First word now merged, 



restore 1t. 

XREG-0 means only one word 
; 1s Involved. 
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L«-MD OR T; 
MAR«-DWAX+1; 

XREGH.. TASK; ••♦X21. TASK added. 

STORE: MD«-XREG, :MOVELOOP; 

FIN: L«-AC1-1; ***X21. Return AC1 to DBA&#17. 

AC1«-L; *** . . • bletch . . . 

IR*-SH3CONST; 
L«-MO, TASK. :SH1; 
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;RCLK - 61003 - Read the Real Time Cloc.k into AC0.AC1 
RCLK: MAR«- CLOCKLOC; 

L«- R37; 

AC1«- L, :LOADX; 

;SIO - 61004 - Put AC0 on the bus, issue STARTF to get device attention, 
;Read Host address from Ethernet interface into AC0. 
SIO: L«- AC0. STARTF; 

T«- 77777; ♦••X21 sets AC0[0] to 

L«- RSNF AND T; 
LTOAC0: AC0«- L, TASK, :TOSTART; 

EngNumber is a constant returned by VERS that contains a discription 
of the Alto and it's Microcode. The composition of EngNumber is: 

bits 0-3 Alto engineering number 

bits 4-7 Alto build 

bits 8-15 Version number of Microcode 
Use of the Alto Build number has been abandoned, 
the engineering number (EngNumber) is in the MRT files because it 
it different for Altos with and without Extended memory. 
VERS: T«- EngNumber; ***V3 change 

L«- 3+T, :LTOAC0; ***V3 change 



;XML0A - Extended Memory Load Accumulator. 
; AC0 «- GAC1 in the alternate bank 
XMLOA: XMAR«- AC1. :FINLOAD; ***V3 change 



;XMSTA - Extended Memory Store Accumulator 
; 8AC1 <- AC0 in the alternate bank 
XMSTA: XMAR«- AC1. :XSTA1; ***V3 change 
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BLT - 61005 - Block Transfer 
BUS - 61006 - Block Store 

ACCGD t S i fl 

ACO/ BLT: Address of first word of source block-! 

BUS: Data to be stored 
AC1/ Address of last word of destination block 
AC3/ NEGATIVE word count 

I gauge 

ACO/ BLT: Address of last word of source block+1 
BLKS: Unchanged 

AC1/ Unchanged 

AC2/ Unchanged 

AC3/ 
These instructions are interruptable. If an interrupt occurs, 
the PC is decremented by one, and the ACs contain the intermediate 
so the instruction can be restarted when the interrupt is dismissed. 

II, 2, PERHAPS, MO; 

BLT: L*- MAR*- AC0+1; 
ACO*- L; 
L«- MD. :BLKSA; 

BLKS: L*- ACO; 

BLKSA: T*- AC3+1, BUS-0; 

MAR*- AC1+T. :MOREBLT; 

MOREBLT: XREG*- L, L«- T; 
AC3*- L, TASK; 

MD*- XREG; STORE 

L*- NWW, BUS-0; CHECK FOR INTERRUPT 

SH<0, :PERHAPS, L*- PC-1; Prepare to back up PC. 

NO: SINK*- DISP. SINK*- M7, BUS, :DISABLED; 

PERHAPS: SINK*- DISP. SINK*- M7. BUS, :DOIT; 

DOIT: PC*-L, :FINBLT; »**X21. Reset PC, terminate instruction. 

DISABLED: :DIR; GOES TO BLT OR BLKS 

FINBLT: T*-777; ••♦X21. PC in [177000-177777] means Ram return 

L*-PC+T+1 ; 

L«-PC AND T. TASK, ALUCY; 
TOSTART: XREG*-L, : START; 

RAMRET: T*-XREG. BUS. SWMODE; 
TORAM: :N0VEM; 
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;PARAMETERLESS INSTRUCTIONS FOR DIODLING THE WCS. 

;JMPRAM - 61010 - JUMP TO THE RAM ADDRESS SPECIFIED BY AC1 
JMPR: T«-AC1, BUS, SWMODE. :TORAM; 

;RDRAM - 61011 - READ THE RAM WORD ADDRESSED BY AC1 INTO ACO 
RDRM: T«- AC1. RDRAM; 

L«- ALLONES, TASK. :LOADD; 

;WRTRAM - 61012 - WRITE AC0.AC3 INTO THE RAM LOCATION ADDRESSED BY AC1 
WTRM: T«- AC1; 

L«- ACO, WRTRAM; 

L«- AC3, :FINBLT; 
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; DOUBLE WORD INSTRUCTIONS 

;DREAO - 61015 

; ACO*- rv(AC3); AC1*- rv(AC3 xor 1) 



DREAD: MAR*- AC3; 

NOP; 
DREAD1: L«- MD; 

T*-MD; 

ACO*- L, L*-T, TASK; 

AC1«- L, :START; 



START MEMORY CYCLE 
DELAY 

FIRST READ 
SECOND READ 
STORE MSW 
STORE LSW 



•.DWRITE - 61016 

; rv(AC3)*- ACO; rv(AC3 xor 1)*- AC1 



DWRITE: MAR*- AC3; 
NOP; 

MD*- ACO, TASK; 
MD*- AC1, : START; 



START MEMORY CYCLE 
OELAY 

FIRST WRITE 
SECOND WRITE 



OEXCH - 61017 

t«- rv(AC3); rv(AC3)<- ACO; AC0«- t 

t*- rv(AC3 xor 1); rv(AC3 xor 1)*- AC1; AC1«- t 



DEXCH: MAR*- AC3; 
NOP; 

MD*- ACO; 
MD*- AC1,:DREAD1; 



START MEMORY CYCLE 

DELAY 

FIRST WRITE 

SECOND WRITE. GO TO READ 



;DIOGNOSE INSTRUCTIONS 



DIOG1 



DIOG1: 



DIOG2 



DI0G2: 



- 61022 

Hamming Code*- AC2 
rv(AC3)«- ACO; rv(AC3 xor 1)«- AC1 



MAR*- ERRCTRL; 

NOP; 

MD*- AC2,: DWRITE; 

- 61023 
rv(AC3)«- ACO 
rv(AC3)*- ACO xor AC1 

MAR*- AC3; 

T«- ACO; 

L*- AC1 XORT; 

MO*- ACO; 

MAR*- AC3; 

ACO*- L, TASK; 

MD*- ACO, : START; 



START WRITE TO ERROR CONTROL 

DELAY 

WRITE HAMMING CODE, GO TO DWRITE 



START MEMORY CYCLE 
SETUP FOR XOR 
DO XOR 
FIRST WRITE 
START MEMORY CYCLE 
STORE XOR WORD 
SECONO WRITE 
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INTERRUPT SYSTEM. TIMING IS CYCLES IF DISABLED. 18 CYCLES 

IF THE INTERRUPTING CHANEL IS INACTIVE. AND 36+6N CYCLES TO CAUSE 

AN INTERRUPT ON CHANNEL N 

INTCODE:PC- L. IR- 0; 
T- NWW; 
T- MD OR T; 
L- MD AND T; 

SAD- L L- T, SH«0; SAD HAD POTENTIAL INTERRUPTS 

NWW<- L, L-0+1, :SOMEACTIVE; NWW HAS NEW WW 

NOACTIVE: MAR*- WWLOC; RESTORE WW TO CORE 

L «- SAD; AND REPLACE IT WITH SAD IN NWW 

MD*- NWW. TASK; 

INTZ: NWW*- L. :START; 

SOMEACTIVE: MAR- PCLOC; STORE PC AND SET UP TO FIND HIGHEST PRIORITY REQUEST 
XREG«- L. L«- 0; 
MD*- PC. TASK; 

ILPA: PC*- L; 
ILP: T*- SAO; 

L«- T«- XREG AND T; 

SH-0. L*- T. T«- PC: 

:IEXIT, XREG*- L LSH 1; 

IEXlf! 1 MAR^PCLOcIt+i! ! L ' FETCH NEW PC. T HAS CHANNEL », L HAS MASK 

XREG*- L; 
T*- XREG; 
L*- NWW XOR T; TURN OFF BIT IN WW FOR INTERRUPT ABOUT TO HAPPEN 

T«- MD; 

NWW<- L. L«- T; 

PC*- L. L*- T«- 0+1. TASK; 

SAD- L MRSH 1. : NOACTIVE; SAD- 1B5 TO DISABLE INTERRUPTS 
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«»»*♦«♦•»•*»»••**«•***** 

* BIT-BLT - 61024 • 

«»««»»«•»«•»»»*•«•♦•*»♦* 

Modified September 1977 to support Alternate memory banks 

Last modified Sept 6, 1977 by Dan Ingalls 

/♦ NOVA REGS „ „„„ 

AC2 -> BLT DESCRIPTOR TABLE, AND IS PRESERVED 
AC1 CARRIES LINE COUNT FOR RESUMING AFTER AN 
INTERRUPT. MUST BE AT INITIAL CALL 
ACO AND AC3 ARE SMASHED TO SAVE S-REGS 



; /♦ ALTO 
;DISP CARRIES: 

SMASK1 

SYMUL 

SRETN 

SSKEW 

$TEMP 

JWIDTH 

SPLIER 

SDESTY 

SWORD2 

SSTARTBITSM1 

$SWA 

SDESTX 

SLREG 

SNLINES 

SRAST1 

SSRCX 

JSKMSK 

$SRCY 

SRAST2 

SCONST 

$ TWICE 

SHCNT 

SVINC 

SHINC 

SNWORDS 

$MASK2 

SLASTMASKP1 

$170000 

SCALL3 

SCALL4 

SDWAOFF 

SDXOFF 

JDWOFF 

SDHOFF 

JSWAOFF 

SSXOFF 

SGRAYOFF 

JLASTMASK 



REGISTER USAGE 

TOPLD(IOO), SOURCEBANK(40). DESTBANK(20), 

SOURCE(14), OP(3) 

$R0; 

$R2; HAS TO BE AN R-REG FOR SHIFTS 

$R2; 

$R3; 

$R5; 

$R7; 

SR7; 

$R10; 

$R10; 

$R35; 

SR36; 

$R36: 

$R40; 

$R41: 

$R42; 

SR43; 

$R43; 

$R44; 

$R44; 

$R46; 

$R4S; 

$R46; 

SR46; 

$R47; 

$R50; 

SR51; 



HAS TO BE AN R-REG FOR SHIFTS 



HAS TO BE R40 (COPY OF L-REG) 



WAS $R46; 



$500; MASKTABLE+021 

S170000; 

$3; 

$4; 

S2: 

$4; 

SB; 

$7i 

$10; 

$12; 

$14; 
$477; 



SUBROUTINE CALL INDICES 
BLT TABLE OFFSETS 



GRAY IN WORDS 14-17 

MASKTABLE+020 "NOT IN EARLIER PROMS I 
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BITBLT SETUP - CALCULATE RAM STATE FROM AC2'S TABLE 



/* FETCH COORDINATES FROM TABLE 

ll.2.FDDX,BLITX; 

ll,2,FDBL.BBNORAM; 

117.20.FDBX,,,.FDX,,FDW.,.,FSX ; FDBL RETURNS (BASED ON OFFSET) 

; (0) 4 6 12 

BITBLT: L«- 0; 

SINK<-LREG, BUSODD; SINK*- -1 IFF NO RAM 

L*- T*- DWOFF, :FDBL; 
BBNORAM: TASK, :NPTRAP; TRAP IF NO RAM 



FDW: 


T*- MD; 


PICK UP WIDTH, HEIGHT 




WIDTH*- L, L«- T, TASK, 


:NZWID; 


NZWID: 


NLINES*- L; 

T*- ACl; 

L«- NLINES-T; 

NLINES*- L, SH<0, TASK; 






:FDDX; 




FDDX: 


L*- T*- DXOFF, :FDBL; 


PICK UP DEST X AND Y 


FDX: 


T«- MD; 

DESTX*- L, L*- T, TASK; 

DESTY*- L; 





L*- T*- SXOFF, :FDBL; PICK UP SOURCE X AND Y 
FSX: T<- MD; 

SRCX«- L, L*- T. TASK; 
SRCY«- L, :CSHI; 

• /• FETCH DOUBLEWORD FROM TABLE (L«- T<- OFFSET. :FDBL) 

FDBL: MAR*- AC2+T; 

SINK*- LREG. BUS; 
FDBX: L*- MD, :FDBX; 

; /* CALCULATE SKEW AND HINC 

I1.2.LTOR.RTOL; 
CSHI: T*- DESTX; 

L*- SRCX-T-1; 

T*- LREG+1, SH<0; TEST HORIZONTAL DIRECTION 

L*- 17. T, :LTOR; SKEW *- (SRCX - DESTX) MOD 16 
RTOL: SKEW*- L, L*- 0-1, :AH, TASK; HINC ♦■ -1 
LTOR: SKEW*- L, L*- 0+1. :AH, TASK; HINC «- +1 
AH: HINC*- L; 

; CALCULATE MASK1 AND MASK2 

ll.2,IFRTOL,LNWORDS; 

11.2.POSWID.NEGWID; 
CMASKS: T*- DESTX; 

T*- 17. T; 

MAR*- LASTMASKP1-T-1; 

L*- 17-T; STARTBITS ♦■ 16 - (DESTX. 17) 

STARTBITSM1*- L; 

L*- MD, TASK; 
. MASK1*- L; MASK1 ♦■ 8(MASKL0C+STARTBITS) 

L*- WIDTH-1; 

T*- LREG-1. SH<0; 

T*- DESTX+T+1. :P0SWID; 
POSWID: T*- 17. T; 

MAR*- LASTMASK-T-1; 

T*- ALLONES; MASK2 ♦■ NOT 

L*- HINC-1; 

L*- MD XOR T. SH-0. TASK; 8(MASKLOC+(16-((DESTX+WIDTH-l).17))) 

MASK2*- L. :IFRTOL; 
: /♦ IF RIGHT TO LEFT. ADD WIDTH TO X'S AND EXCH MASK1, MASK2 
IFRTOL: T*- WIDTH-1; WIDTH-1 

L*- SRCX+T; 

SRCX*- L; SRCX ♦• SCRX + (WIDTH-1) 

L*- DESTX+T; 

DESTX*- L; DESTX ♦- DESTX + (WIDTH-1) 

T*- DESTX; 

L*- 17. T. TASK; 

STARTBITSM1*- L; STARTBITS ♦• (DESTX. 17) + 1 

T*- MASK1; 



Al toIICode3.mu 



30-Dec-78 0:16:46 



Page 32 



L«- MASK2; 

MASK1*- L. L«- T.TASK; 

MASK2«-L; 



EXCHANGE MASK1 AND MASK2 



LNW1: 



CYX4: 
THIN: 



LNW2: 



; /* CALCULATE NWORDS 

I1.2.LNW1.THIN; 
LNWORDS:T<- STARTBITSM1+1; 

L* WIDTH-T-1; 

T«- 177760, SH<0; 

T* LRE6.T, :LNW1; 

L* CALL4; NWORDS * (WIDTH-STARTBITS)/16 

CYRET* L, L«- T. :R4, TASK; CYRET*-CALL4 

•♦WIDTH REG NOW FREE** 

L* CYCOUT. :LNW2; 

T«- MASK1; SPECIAL CASE OF THIN SLICE 

L«-MASK2.T; 

MASK1*- L. L«- 0-1; MASK1 *• MASK1.MASK2, NWORDS +• -1 

NWORDS*- L; LOAD NWORDS 

••STARTBITSM1 REG NOW FREE** 

/• DETERMINE VERTICAL DIRECTION 

ll,2.BTOT,TTOB; 

T* SRCY; 

L- DESTY-T; 

T«- NLINES-1. SH<0: 

L<- 0. :BTOT; VINC +• IFF TOP-TO-BOTTOM 

L* ALLONES; ELSE -1 

VINC*- L; 

L+ SRCY+T; GOING BOTTOM TO TOP 

SRCY*- L; ADD NLINES TO STARTING Y'S 

L* DESTY+T; 

DESTY* L, L«- 0+1, TASK; 

TWICEH-, :CWA; 



BTOT: 
BTOT1: 



TTOB: 



CWA: 



DOSWA: 



CYX3: 



MULLP: 

NOADD: 
SHIFTB: 

DOADD: 



T«- AC1. :BT0T1; 
♦•AC1 REG NOW FREE**; 



TOP TO BOT. ADD NDONE TO STARTING Y'S 



/• CALCULATE WORD ADDRESSES - DO ONCE FOR SWA, THEN FOR DWAX 

L«- SRCY; Y HAS TO GO INTO AN R-REG FOR SHIFTING 

YMUL*- L; 

T* SWAOFF; FIRST TIME IS FOR SWA. SRCX 

i«_ SRCX* 

••SRCX.'SRCY REG NOW FREE** 

MAR* AC2+T; FETCH BITMAP ADDR AND RASTER 

XREG* L; 

L«-CALL3; 

CYRET* L: CYRET*-CALL3 

L«- MO; 

T«- MD; 

DWAX*- L. L*T, TASK; 

RAST2«- L; 

T«- 177760; 

L* T«- XREG.T, :R4, TASK; 

T* CYCOUT; 

L«- DWAX+T; 

DWAX*- L; 



SWA *- SWA + SRCX/16 



SWA «• SWA + SRCY*RAST1 



CDELT: 



1 1,2, NOADD, DOADD; 

II. 2. MULLP, CDELT; 

L«- RAST2; 

SINK*- YMUL. BUS-0. TASK; NO MULT IF STARTING Y-0 

PLIER*- L, :MULLP; 

L* PLIER. BUSODD; MULTIPLY RASTER BY Y 

PLIER* L RSH 1. :NOAOD; 

L- YMUL, SH-0. TASK: TEST NO MORE MULTIPLIER BITS 

YMUL* L LSH 1. : MULLP; 

T* YMUL; 

L* DWAX+T; 

DWAX*- L. L*T. :SHIFTB, TASK; 

••PLIER, YMUL REG NOW FREE** 

I1.2.HNEG.HP0S: 

I1.2.VPOS.VNEG; 

ll.l.CDl; CALCULATE DELTAS - +-(NWORDS+2)[HINC] +-RASTER[VINC] 

L* T* HINC-1; (NOTE T* -2 OR 0) 

L+ T*- NWORDS-T, SH-0; (L*NWORDS+2 OR T*NWORDS) 
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CD1: 

HNEG: 

HPOS: 

VPOS: 

VNEG: 

GDELT: 



SINK*- VINC. BUSODD, :HNEG; 

T«- RAST2, :VPOS; 

L«- -2-T, :CD1; (MAKES L«--(NWORDS+2)) 

L*- LREG+T, :GDELT, TASK; BY NOW, LREG - +-(NW0RDS+2) 

L*- LREG-T, :GOELT, TASK; AND T ■ RASTER 

RAST2*- L; 

/• ENO WORD ADDR LOOP 

11.2.0NEMORE.CTOPL; 

L«- TWICE-1; 

TWICE* L, SH<0; 

L«- RAST2. :ONEMORE; 



USE RAST2 2ND TIME THRU 



ONEMORE: 



RAST1*- L; 



CTOPL: 
CTX: 

CTOP1: 



HI: 

HM1: 

NOTOPL 
TOPL: 



CSKEW: 

THINC: 

BCOM1 
COMSK 

NOCOM 



GFN: 



L«- DESTY, TASK; USE DESTY 2ND TIME THRU 

YMUL«- L; 

L«- DWAX; USE DWAX 2ND TIME THRU 

T*- DESTX; CAREFUL - OESTX-SWAI I 

SWA*- L, L*- T; USE DESTX 2ND TIME THRU 

T«- DWAOFF, :DOSWA; AND DO IT AGAIN FOR DWAX. DESTX 

••TWICE. VINC REGS NOW FREE** 

/• CALCULATE TOPLD 

I1.2.CTOP1.CSKEW; 

I1.2.HM1.H1; 

II. 2, NOTOPL, TOPL; 

L«- SKEW, BUS-0. TASK; IF SKEW-0 THEN 0. ELSE 

IR«- 0. :CT0P1; 

T- SRCX; (SKEW GR SRCX.17) XOR (HINC EQ 0) 

L<- HINC-1; 

T«- 17. T, SH«0; TEST HINC 

L«- SKEW-T-1, :HM1; 

T«- HINC. SH<0; 

L«- SWA+T. : NOTOPL; 

T«- LREG; 

L<- O-T-l, :H1; THE 

SINK*- HINC, BUSODD, 

SWA«- L. TASK; 

IR- 100, : CSKEW; 

••HINC REG NOW FREE** 



IF HINC— 1. THEN FLIP 
POLARITY OF THE TEST 
TASK. :CTX; HINC FORCES BUSODD 

(DISP «- 100 FOR TOPLD) 



/• CALCULATE SKEW MASK 

I1.2.THINC.BCOM1; 

II. 2, COMSK. NOCOM; 

J*- SKEW. BUS-0; IF SKEW-0, THEN COMP 

MAR«- LASTMASKP1-T-1, :THINC; 

L«-HINC-1; 

SH-0; IF HINC— 1. THEN COMP 

T- ALLONES, :COMSK; 

L<- MD XOR T, :GFN; 

L«- MD, :GFN; 

/• GET FUNCTION 
MAR*- AC2; 
SKMSK*- L; 



T«- MD; 

L«- DISP+T, TASK; 

IR«- LREG, :BENTR; 



DISP ♦> DISP .OR. FUNCTION 
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BITBLT WORK - VERT AND HORIZ LOOPS WITH 4 SOURCES, 4 FUNCTIONS 



/* VERTICAL LOOP: UPDATE SWA, DWAX 
I1.2.DO0.VLOOP; 
VLOOP: T«- SWA; 

L«- RAST1+T; INC SWA BY DELTA 

SWA*- L; 

T<- DWAX; 

L«- RAST2+T. TASK; INC DWAX BY DELTA 

DWAX*- L; 

; /• TEST FOR DONE, OR NEED GRAY 
ll,2,MOREV.DONEV; 
ll,2,BMAYBE,BNOINT; 
tl,2,BDOINT,BOIS0; 
I1.2.D0GRAY.N0GRAY; 

L- T*- NLINES-1; DECR NLINES AND CHECK IF DONE 
NLINES*- L, SH<0; 

L«- NWW, BUS-O. :MOREV; CHECK FOR INTERRUPTS 
L«- 3.T, :BMAYBE, SH<0; CHECK DISABLED •••V3 change 
SINK*- DISP. SINK*- lgmlO. BUS-O, :BDIS0. TASK; 

SINK*- DISP. SINK<- lgmlO. BUS-O. :BDOINT, TASK; TEST IF NEED GRAY(FUNC-8.12) 
CONST*- L. :DOGRAY; »**V3 change 

/« INTERRUPT SUSPENSION (POSSIBLY) 

Il.l.DOIl; MAY GET AN OR-1 

:D0I1; TASK HERE 

T*- AC2; 

MAR*- DHOFF+T; NLINES DONE • HT-NLINES-1 

T«- NLINES; 

L«- PC-1; BACK UP THE PC, SO WE GET RESTARTED 

PC*- L; 

L*- MD-T-1, :BLITX, TASK; ...WITH NO LINES DONE IN AC1 

; /• LOAD GRAY FOR THIS LINE (IF FUNCTION NEEDS IT) 

I1.2.PRELD.NOPLD; 
DOGRAY: T*- CONST- 1; 

T*- GRAYOFF+T+1; 

MAR*- AC2+T; 

NOP; UGH 

L*- MD; 
NOGRAY: SINK*- DISP, SINK*- IgmlOO. BUS-O. TASK; TEST TOPLD 

CONST*- L, .-PRELD; 



BENTR: 



MOREV: 
BNOINT: 
BMAYBE : 
BDISO: 



BDOINT: 
DOI1: 



: /• NORMAL COMPLETION 

NEGWID: L*- 0. :BLITX, TASK; 

DONEV: L*- 0, :BLITX. TASK; 

BLITX: AC1*- L, :FINBLT; 



MAY BE AN OR-1 HERE I 



PRELD: 



NB1 
AB1 
XB1 



NOPLD: 
DON3: 

DONO: 
DOO: 



LASTH: 
LH1: 



/* PRELOAD OF FIRST SOURCE WORD (DEPENDING ON ALIGNMENT) 

I1.2.AB1.NB1; 

SINK*- DISP, SINK*- 1gm40. BUS-O; WHICH BANK 

T*- HINC, :AB1; 

MAR*- SWA-T, :XB1; (NORMAL BANK) 

XMAR*- SWA-T. :XB1; (ALTERNATE BANK) 

NOP; 

L*- MD. TASK; 

W0RD2*- L. : NOPLD; 



/• HORIZONTAL LOOP - 3 CALLS FOR 1ST. MIDDLE AND LAST WORDS 

I1.2.FDISPA.LASTH; 

X17.17.14.DON0..DON2.DON3; CALLERS OF HORIZ LOOP 

NOTE THIS IGNORES 14-BITS. SO lgml4 WORKS LIKE L*-0 FOR RETN 

I14.1.LH1; IGNORE RESULTING BUS 

L*- 3. :FDISP; CALL #3 IS FIRST WORD 

L*- NWORDS; 

HCNT*- L, SH<0; HCNT COUNTS WHOLE WORDS 

L*- HCNT-1, :DO0; IF NEG, THEN NO MIDDLE OR LAST 

HCNT*- L, SH<0; CALL m (0R-14I) IS MIDDLE WORDS • 

UGLY HACK SQUEEZES 2 INSTRS OUT OF INNER LOOP: 

L*- DISP. SINK*- lgml4, BUS. TASK. :FDISPA; (WORKS LIKE L*-0) 

:LH1; TASK AND BUS PENDING 

L*- 2. :FDISP; CALL #2 IS LAST WORD 
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DON2: 



FOISP: 

FDISPA: 

FO: 

Fl: 

F1A: 

FZ: 
F2A: 



NB2 
AB2 
XB2 



F3: 



F3A: 
FOA: 

NB3: 
AB3: 



OPO: 

OPOA: 

0P1: 

0P2: 

0P3: 



OPN: 



STMSK: 



STM1 
STM2 
STM3 



NB4: 
AB4: 



:VLOOP; 



/* HERE ARE THE SOURCE FUNCTIONS 

I17.20,, 1 ,F0,...F1,,,.F2,,,.F3; IGNORE 

I17,20,.,,F0A.,..F1A.,,,F2A.... ; 

I3,4,OPO,OP1.0P2.0P3; 

11,2.AB2,NB2; 

SINK*- DISP, SINK*-lgml4. BUS, TASK; 

RETN*- L, :FO; 

lgm40, BUS-0, 
lgm40, BUS-0, 



OP BITS IN FUNCTION COOE 
SAME FOR WINDOW RETURNS 



SINK«- 
SINK* 



:WINO; 
:WIND; 



FUNC 
FUNC 



WINDOW 
NOT WINDOW 



TASK. :F3A; 
lgm40, BUS-0, 



:WIND; FUNC 2 - WINDOW .AND. GRAY 



lgm20. BUS-0 
TEMP ♦- 



WHICH BANK 
NOT WINDOW 
(NORMAL BANK) 
(ALTERNATE 8ANK) 
WINDOW .AND. GRAY 



SINK*- DISP, 

SINK*- DISP, 

T«- CYCOUT; 

L«- ALLONES XOR T, 

SINK*- DISP, SINK*- 

T*- CYCOUT; 

L«- ALLONES XOR T; 

SINK*- DISP, SINK«- 

TEMP*- L, :AB2; 

MAR*- DWAX, :XB2; 

XMAR*- DWAX, :XB2; 

L*- CONST AND T; 

T«- TEMP; 

T«- MD .T; DEST.AND.NOT WINDOW 

L*- LREG OR T. TASK. :F3A; (TRANSPARENT) 

L«- CONST. TASK, :F3A; FUNC 3 - CONSTANT (COLOR) 



/• AFTER GETTING SOURCE, START MEMORY AND DISPATCH ON OP 

I1.2.AB3.N83; 

CYCOUT*- L; (TASK HERE) 

SINK*- DISP, SINK*- lgm20, BUS-0; WHICH BANK 

SINK*- DISP, SINK*- 1gra3, BUS. :AB3; DISPATCH ON OP 

T*- MAR*- DWAX, :0P0; (NORMAL BANK) 

T*- XMAR*- DWAX, :OP0; (ALTERNATE BANK) 



/• HERE ARE THE OPERATIONS - ENTER WITH SOURCE IN CYCOUT 
X16.17.15.STFULL.STMSK; MASKED OR FULL STORE (LOOK AT 2-BIT) 

OP - SOURCE 

TEST IF UNMASKED 

ELSE :STMSK 

OP 1 - SOURCE .OR. DEST 



OP 2 - SOURCE .XOR. DEST 

OP 3 - (NOT SOURCE) .AND. DEST 



SINK*- RETN, BUS; 

L*- HINC+T. :STFULL; 

T«- CYCOUT; 

L*- MD OR T. :OPN; 

T*- CYCOUT; 

L*- MD XOR T, :OPN; 

T*- CYCOUT; 

L«- O-T-l; 

T*- LREG; 

L*- MD AND T. :OPN; 

SINK*- DISP, SINK*- 1gm20, BUS-0, TASK; WHICH BANK 

CYCOUT*- L, :AB3; 



/• STORE MASKED INTO DESTINATION 

I1,2,STM2,STM1; 

I1.2.AB4.NB4; 

L<- MD; 

SINK*- RETN, BUSODD, TASK; DETERMINE MASK FROM CALL INDEX 

TEMP*- L. :STM2; STACHE DEST WORD IN TEMP 

T«-MASK1, :STM3; 

T*-MASK2, :STM3; 

L«- CYCOUT AND T; ••*X24. Removed TASK clause. 

CYCOUT*- L. L«- O-T-l; AND INTO SOURCE 

T«- LREG; T*- MASK COMPLEMENTED 

T*- TEMP .T; AND INTO DEST 

L<- CYCOUT OR T; OR TOGETHER THEN GO STORE 

SINK*- DISP, SINK*- 1gm20, BUS-0, TASK; WHICH BANK 

CYCOUT*- L. :AB4; 

T<- MAR*- DWAX, :OP0A; (NORMAL BANK) 

T<- XMAR*- DWAX, :OP0A; (ALTERNATE BANK) 



: /• STORE UNMASKED FROM CYCOUT (L-NEXT DWAX) 
STFULL: MD*- CYCOUT; 
STFUL1: SINK*- RETN, BUS. TASK; 
DWAX*- L, :D0N0; 
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WIND 
N85 
AB5 
XB5 

ZESK: 

NZSK: 



DOCY 
MOCY 
CYX2 
WIA: 



ENTER HERE (8 INST TO TASK) 
(NORMAL BANK) 
(ALTERNATE BANK) 



/• WINDOW SOURCE FUNCTION 

TASKS UPON RETURN. RESULT IN CYCOUT 

ll,2.DOCY,NOCY; 

117,1, WIA; 

II, 2, NZSK, ZESK; 

I1.2.ABS.NBS; 

L«- T«- SKMSK, :AB5; 

MAR*- SWA, :XB5; 

XMAR*- SWA, :XB6; 

L«- WORD2.T. SH-0; 

CYCOUT*- L, L*- 0-T-1. :NZSK; CYCOUT*- OLD WORD .AND. MSK 

L«- MD, TASK; ZERO SKEW BYPASSES LOTS 

CYCOUT*- L. :NOCY; 

T<- MD; 

L«- LREG.T; 

TEMP*- L, L*-T. TASK; 

WORD2*- L; 

T«- TEMP; 

L«- T*- CYCOUT OR T; 

CYCOUT*- L. L*- 0+1, SH-0; 

SINK*- SKEW, BUS. :DOCY; 

CYRET*- L LSH 1. L*- T. :L0 

T*- SWA, :WIA; (MAY HAVE 

T*- SWA; 

L*- HINC+T; 

SINK*- DISP. SINK*- 1gml4, BUS, TASK; 

SWA*- L, :F0A; 



TEMP*- NEW WORD .AND. NOTMSK 



OR THEM TOGETHER 

DONT CYCLE A ZERO •••X21. 



CYCLE BY SKEW 
OR-17 FROM BUS) 



'•X21. 



DISPATCH TO CALLER 
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THE DISK CONTROLLER 



; ITS 


REGISTERS: 






SDCBR 


$R34; 






SKNMAR 


$R33; 






SCKSUMR 


$R32; 






SKWDCT 


$R31; 






SKNMARW 


$R33: 






SCKSUMRW 


JR32; 






SKWOCTW 


$R31; 






; ITS 


TASK SPECIFIC FUNCTIONS AND BUS SOURCES: 




SKSTAT 


SL020012, 014003, 124100 


DF1 » 12 (LHS) BS - 


3 (RHS) 


$RWC 


SL0240U, 000000,000000 


NOF2 • 11 




$RECNO 


SL024012, 000000, 000000 


NDF2 - 12 




SINIT 


SL024010, 000000,000000 


NOF2 • 10 




SCLRSTAT 


SL016014, 000000. 000000 


NOF1 - 14 




SKCOMM 


$L020015. 000000, 124000 


DF1 ■ 16 (LHS only) 


Requires bus def 


SSWRNRDY 


SL024014, 000000, 000000 


NDF2 - 14 




SKADR 


SL020016, 000000. 124000 


DF1 • 16 (LHS only) 


Requires bus def 


SKDATA 


SL020017, 014004, 124100 


OF1 • 17 (LHS) BS • 


■ 4 (RHS) 


SSTROBE 


SL016011, 000000, 000000 


NDF1 " 11 




SNFER 


SL024015, 000000. 000000 


NOF2 - IS 




SSTROBON 


SL024016, 000000, 000000 


NDF2 - 16 




SXFRDAT 


$L024013, 000000, 000000 


NOF2 • 13 




SINCRECNO 


SL016013. 000000, 000000 


NDF1 - 13 





; THE DISK CONTROLLER COMES IN TWO PARTS. THE SECTOR 

; TASK HANDLES DEVICE CONTROL AND COMMAND UNDERSTANDING 

; AND STATUS REPORTING AND THE LIKE. THE WORD TASK ONLY 

; RUNS AFTER BEING ENABLED BY THE SECTOR TASK AND 

; ACTUALLY MOVES DATA WORDS TO AND FRO. 

j THE SECTOR TASK 

; LABEL PREDEFINITIONS: 

I1.2.COMM.N0C0MM; 

ll,2,COMM2,IDLEl; 

11.2,BADCOMM,COMM3; 

ll,2,COMM4,ILLSEC; 

ll.2,COMM5,WHYNRDY; 

I1.2.STROB.CKSECT; 

I1.2.STALL.CKSECT1; 

I1.2.KSFINI.CKSECT2; 

1 1.2. IDLE2, TRANSFER: 

I1.2.STALL2.GASP; 

I1.2.INVERT.NOINVERT; 

KSEC: MAR<- KBLKADR2; 

KPOQ: CLRSTAT; RESET THE STORED DISK ADDRESS 
MD«-L«-ALLONES+l . :GC0M2; ALSO CLEAR DCB POINTER 



GETCOM: MAR«-KBLKADR; 
GCOM1: NOP; 

L«-MD; 
GC0M2: DCBR«-L,TASK; 

KC0MM*-T0WTT; 



GET FIRST OCB POINTER 



IDLE ALL DATA TRANSFERS 



MAR«-KBLKADR3; 
T«-NWW; 
L«-MD OR T; 



GENERATE A SECTOR INTERRUPT 



MAR-KBLKADR+1; 
NWW«-L, TASK; 
MDHCSTAT; 



STORE THE STATUS 



MAR-KBLKADR; 
KSTAT«-6; 
L*-DCBR.TASK.BUS-0; 
MD«-DCBR, :COMM; 



WRITE THE CURRENT DCB POINTER 
INITIAL STATUS IS INCOMPLETE 



BUS-0 MAPS COMM TO NOCOMM 



COMM: T«-2; GET THE DISK COMMAND 
MARHJCBR+T; 
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T«-TOTUWC; 

L*-MD XOR T, TASK, STROBON; 

KWDCT«-L, :COMM2; 

; STROBON MAPS COMM2 TO IOLE1 

COMM2: T«-10; READ NEW DISK ADDRESS 
MAR«-DCBR+T+1; 
T«-KWDCT; 
L«-ONE ANO T; 
L«--400 AND T, SH»0; 
T*-MD, SH-0, :INVERT; 

; SH-0 MAPS INVERT TO NOINVERT 

INVERT: L«-2 XOR T. TASK, :BADC0MM; 
NOINVERT: L«-T, TASK, :BADCOMM; 



COMM3 : 



COMM4: 



SH»0 MAPS BADCOMM TO C0MM3 

KNMAR«-L; 

MAR«-KBLKADR2; WRITE THE NEW DISK ADDRESS 

T«-SECT2CM: CHECK FOR SECTOR > 13 

L«-T«-KDATAHCNMAR+T; NEW DISK ADDRESS TO HARDWARE 

KADR-KWDCT.ALUCY; DISK COMMAND TO HARDWARE 

L«-MO XOR T.TASK. :COMM4; COMPARE OLD AND NEW DISK AODRESSES 

ALUCY MAPS COMM4 TO ILLSEC 

CKSUMR«-L; 

MAR«-KBLKADR2; WRITE THE NEW DISK ADDRESS 
T«-CADM,SWRNRDY; SEE IF DISK IS READY 
L«-CKSUMR AND T, :COMM5; 

SWRNRDY MAPS COMM5 TO WHYNRDY 



COMM5 : 



MD«-KNMAR; 
SH-0, TASK; 
:STROB; 



COMPLETE THE WRITE 



; SH-0 MAPS STROB TO CKSECT 

CKSECT: T«-KNMAR,NFER; 

L«-KSTAT XOR T, : STALL; 

; NFER MAPS STALL TO CKSECT1 

CKSECT1: CKSUMRH..XFRDAT; 
T«-CKSUMR, :KSFINI; 

; XFROAT MAPS KSFINI TO CKSECT2 

CKSECT2: L«-SECTMSK AND T; 
KSLAST: BLOCK. SH-0; 
GASP: TASK. :IDLE2; 

; SH-0 MAPS IDLE2 TO TRANSFER 

TRANSFER: KCOMM«-TOTUWC ; TURN ON THE TRANSFER 

ll,2,ERRFND,NOERRFNO; 
I1.2,EF1,NEF1; 

DMPSTAT: TKOMERR1; SEE IF STATUS REPRESENTS ERROR 
LHCSTAT AND T; 

MAR«-DCBR+1; WRITE FINAL STATUS 
KWDCTH., TASK. SH-0; 
MD«-KSTAT,:ERRFND; 

; SH-0 MAPS ERRFND TO NOERRFNO 

NOERRFND: T«-6; PICK UP NO-ERROR INTERRUPT WORO 

INTCOM: MARHKBR+T; 
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T«-NWW; 
L«-MD OR T; 

SINK^KWDCT.BUS-O.TASK; 
NWW<-L. :EF1; 

; BUS-0 MAPS EF1 TO NEF1 

NEF1: MAR«-DCBR.:GC0M1; FETCH ADDRESS OF NEXT CONTROL BLOCK 

ERRFND: T*7. :INTCOM; PICK UP ERROR INTERRUPT WORD 

EF1: :KSEC; 

NOCOMM: L«-ALLONES,CLRSTAT. :KSLAST; 

IOLE1: L«-ALLONES,:KSLAST; 

IDLE2: KSTAT«-L0W14. :GETCOM; NO ACTIVITY THIS SECTOR 

BADCOMM: KSTAW; ILLEGAL COMMAND ONLY NOTED IN KBLK STAT 
BLOCK; 
TASK,:EF1; 

WHYNRDY: NFER; 

STALL: BLOCK, :STALL2; 

NFER MAPS STALL2 TO GASP 

STALL2: TASK; 

:DMPSTAT; 

ILLSEC: KSTAT«-7. :STALL; ILLEGAL SECTOR SPECIFIED 

STROB: CLRSTAT; 

L«-ALLONES , STROBE , : CKSECT1 ; 

KSFINI: KSTAT«-4, :STALL; COMMAND FINISHED CORRECTLY 
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;DISK WORD TASK 

;WORD TASK PREDEFINITIONS 

1 37, 37,,,. RPO, INPREF1, CKPO. WPO,. PXFLP1. RDCKO, WRTO, REC1..REC2.REC3... RECORC. RECOW, R0..CK0. WO., R2..W2,, RE 

**C0,.KWD; 

I1,2,RW1,RW2; 

I1.2.CK1.CK2; 

ll,2,CK3,CK4; 

I1.2.CKERR.CK5; 

I1.2.PXFLP.PXF2; 

I1.2.PREFOONE.INPREF; 

11.2, ,CK6; 

I1.2.CKSMERR.PXFLP0; 

KWO: BLOCK, :REC0; 

; SH<0 MAPS RECO TO RECO 

; ANYTHING-INIT MAPS RECO TO KWD 

RECO: L«-2, TASK; LENGTH OF RECORD (ALLOW RELEASE IF BLOCKEO) 
KNMARWH.; 

THCNMARW. BLOCK, RWC; GET ADDR OF MEMORY BLOCK TO TRANSFER 
MARHKBR+T+1, :REC0RC; 

; WRITE MAPS RECORC TO RECOW 
; INIT MAPS RECORC TO KWO 

RECORC: T«-MFRRDL, BLOCK, :REC12Aj FIRST RECORD READ DELAY 
RECOW: T«-MFR0BL. BLOCK, :REC12A; FIRST RECORD O'S BLOCK LENGTH 

REC1: L«-10, INCRECNO; LENGTH OF RECORD 1 

T«-4. :REC12; 
REC2: LEPAGE 1, INCRECNO; LENGTH OF RECORD 2 

T«-5, :REC12; 
REC12: MARH)CBR+T. RWC; MEM BLK ADDR FOR RECORD 

KNMARWH., :RDCK0; 

; RWC-WRITE MAPS RDCKO INTO WRTO 
; RWC- INIT MAPS RDCKO INTO KWO 

RDCKO: T«-MIRRDL. :REC12A; 
WRTO: T«-MIR08L. :REC12A{ 

REC12A: L«-MO; 

KWDCTWH.. L«-T; 
COM1: KCOMM«- STUWC. :INPREF0; 

INPREF: L«-CKSUMRW+1, INIT, BLOCK; 
INPREFO: CKSUMRWH., SH<0. TASK. :INPREF1; 

; INIT MAPS INPREF1 TO KWD 

INPREF1: KDATA«-0. :PREFDONE; 

; SH<0 MAPS PREFDONE TO INPREF , 

PREFDONE: T*-KNMARW; COMPUTE TOP OF BLOCK TO TRANSFER 
KWDX: LHCWDCTW+T.RWC; (ALSO USED FOR RESET) 
KNMARWH., BLOCK, :RP0; 

; RWC-CHECK MAPS RPO TO CKPO 

; RWC-WRITE MAPS RPO AND CKPO TO WPO 

; RWC-INIT MAPS RPO, CKPO. AND WPO TO KWD 

RPO: KC0MM«-STRCWFS,:WP1; 

CKPO: LHCWDCTW-1; ADJUST FINISHING CONDITION BY 1 FOR CHECKING ONLY 

KWDCTW*-L.:RPO; 

WPO: KDATA«-ONE; WRITE THE SYNC PATTERN 

WP1: L«-KBLKADR,TASK,:RW1; INITIALIZE THE CHECKSUM AND ENTER XFER LOOP 

XFLP: T«-L«-KNMARW-1; BEGINNING OF MAIN XFER LOOP 
KNMARWH; 
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MAR«-KNMARW,RWC; 
L<-KWDCTW-T,:R0; 

RWC-CHECK MAPS R0 TO CKO 
RWC-WRITE MAPS RO AND CKO TO WO 
RWOINIT MAPS RO, CKO. ANO WO TO KWD 

RO: T<-CKSUMRW, SH-0, BLOCK; 

MD«-L«-KDATA XOR T,TASK,:RW1; 

SH«0 MAPS RW1 TO RW2 

RW1: CKSUMRW«-L,:XFLP; 

WO: T«-CKSUMRW. BLOCK; 

KDATA«-L«-MD XOR T.SH«0; 
TASK.:RW1; 

; AS ALREAOY NOTEO, SH-0 MAPS RW1 TO RW2 

CKO: T«-KDATA, BLOCK. SH-0; 

L*-MD XOR T.BUS-0.:CK1; 

; SH-0 MAPS CK1 TO CK2 

CK1: L*-CKSUMRW XOR T.SH-0.:CK3; 

; BUS-0 MAPS CK3 TO CK4 

CK3: TASK,:CKERR; 

; SH-0 MAPS CKERR TO CK6 

CK6: CKSUMRW«-L.:XFLP; 

CK4: MARt-KNMARW, :CK6; 

; SH-0 MAPS CK6 TO CK6 

CK6: CKSUMRW*-L.L«-0+T; 
MTEMP«-L,TASK; 
MD«-MTEMP,:XFLP; \" 

CK2: L*-CKSUMRW-T.:R2; 1 

; BUS-0 MAPS R2 TO R2 

RW2: CKSUMRW«-L; I 

T«-KDATA«-CKSUMRW.RWC; THIS CODE HANDLES THE FINAL CHECKSUM 
L«-KDATA-T, BLOCK. :R2; 

RWC-CHECK NEVER GETS HERE 
RWC-WRITE MAPS R2 TO W2 
RWC-INIT MAPS R2 AND W2 TO KWD 

R2: L«-MRPAL. SH-0; SET READ POSTAMBLE LENGTH. CHECK CKSUM 
KCOMM«-TOTUWC. .-CKSMERR; 

; SH-0 MAPS CKSMERR TO PXFLPO 

W2: L<-MWPAL. TASK; SET WRITE POSTAMBLE LENGTH 
CKSUMRW«-L. :PXFLP; 

CKSMERR: KSTAT«-0. : PXFLPO; MEANS CHECKSUM ERROR .. CONTINUE 

PXFLP: L«-CKSUMRW+1 . INIT. BLOCK; 
PXFLPO: CKSUMRWH., TASK. SH-0. :PXFLP1; 

; INIT MAPS PXFLP1 TO KWD 

PXFLP1: KDATA«-0.: PXFLP; 

; SH-0 MAPS PXFLP TO PXF2 

PXF2: RECNO, BLOCK; DISPATCH BASED ON RECORD NUMBER 
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:REC1; 

RECNO-2 MAPS REC1 INTO REC2 
RECNO=3 MAPS REC1 INTO REC3 
RECNO-INIT MAPS REC1 INTO KWD 

REC3: KSTAT«-4.:PXFLP; 4 MEANS SUCCESSI ! ! 

CKERR: KCOMM«-TOTUWC ; TURN OFF DATA TRANSFER 

L«-KSTAT<-6. :PXFLP1; SHOW CHECK ERROR AND LOOP 
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The Parity Error Task 

Its label predefinition is way earlier 

It dumps the following interesting registers: 

614/ DCBR Disk control block 

615/ KNMAR Disk memory address 

616/ DWA Display memory address 

617/ CBA Display control block 

620/ PC Emulator program counter 

621/ SAD Emulator temporary register for indirection 



PART: 



PR8 
PR7 
PR6 
PR5 
PR4 
PR3 
PR2 
PRO 



T«- 10; 

L«- ALLONES; 

MAR*- ERRCTRL, :PX1; 

L«- SAD. :PX; 

L«- PC. :PX; 

L- CBA. :PX; 

L«- DWA. :PX; 

L<- KNMAR, :PX; 

L«- DCBR. :PX; 

L«- NWW OR T, TASK; 

NWW> L, :PART; 



TURN OFF MEMORY INTERRUPTS 



T CONTAINS 1 AT THIS POINT 



PX: MAR«- 612+T; 
PX1: MTEMP<- L. L«- T; 

MD«- MTEMP; 

CURDATA«- L; 

T<- CURDATA-1, BUS; 

:PR0; 



THIS CLOBBERS THE CURSOR FOR ONE 
FRAME WHEN AN ERROR OCCURS 



